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«NOSHOW CONDITIONALS 


- TITLE ropn tyes = VAX/VMS DMP11/DMV11 Device Driver 
-IDENT ‘v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER AL 

ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
a a a NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
se eokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ICENSE AND MAY BE USED AND COPIED 
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FACILITY: 


VAX/VMS DMP11/DMV11 Device driver 


; ABSTRACT: 


This module contains the DMP11/DMV11 driver FDT routines, 
interrupt dispatcher, interrupt service and fork routines. 


; AUTHOR: 


R. GAMACHE 13-JUL-81 


MODIFICATION HISTORY: 


v03-036 pusees6 Rod N. Gamache 7-Aug-1984 
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ake sure requests on the XMIT Pending queue are not aborted 


without fetesenng map registers, when a trib is shutdown. 
Set dead threshold from 16 to 3. 


v03-035 RNGOO35 Rod 4-May-1984 


N. Gamache sy 
Set DEVSM_NET and DEVSM_AVL bits in device characteristics. 


v03-034 auepess Rod N. Gamache 19-Apr-1984 


on't allow transmits larger than 16 KB. 


v03-033 RNGOO33 Rod N. Gamache rs: tan 
Fix max tribs for DMV11 to be 16 instead of . 


Fix problem with ‘’streaming tribs’’ and losing the 


1 


(1). 
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transmit slots. 
Get descriptor size as a word rather than a longword. 


v03-032 RNGOO32 Rod N. Gemechg 13-Sep-1983 
Add support for the DMV11 in 22-bit mode. 


v03-031 RNGOO31 Rod N. Gamache 31-Aug-1983 
Make all NOOP function request clear BSEL7. 
Aborted INPUT CANCEL requests now release the input CSRs. 
CANCEL no Longer aborts transmits in progress prematurely, 
this allows the FORK process to return map registers. 


v03-030 RNGOO30 Rod N. Gamache 29-Jun-1983 
Fix the XMIT and RECV operations to check the ACTIVE 
bit rather than the ESTAB bit when performing 1/0 operations. 
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Set up the P1 characteristics on a SENSEMODE after finding 
the red state. 
Add journaling to file. 
v03-029 RNGO029 Rod N. Gamache 23-Jun-1983 
Remove internal definition of IRPSQ_STATION (for V4 only) 
00 v03-028 RNGOO28 Rod N. Gamache 12-May-1983 


Lots of cleanup for MOP mode. 


0000 v03-027 RNGOO27 Rod N. Gamache he Phe 
0000 Wait a Little while before issueing a STOP tr outer? 
0000 request. This is in case we just processed a $CANCE 
4464 request and the trib hasn't finished running down. 
0000 V03-026 RNGOO25S Rod N. Gamache 20-Jan-1983 
Initialize the UCB Fork Process address to be the fork 
0000 Process routine and not the timeout routine. This is 
0000 because in the event a of a device timeout, before the 
0000 device is really initialized, then the timeout routine 
0000 does not need to have an offset to the timeout routine. 
0000 Don’t call GET_CDB on HALTT request! 
44 Change default Device IPL to be 21 (instead of 22). 
0000 v03-025 RNGO024 Rod N. Gamache 3-Dec-1982 
0000 Don't reset the tributary DEVDEPEND field on HALTT request. 


v03-024 RNGOO023 Rod N. Gamache 4-Nov-1982 
Save R4 in Write FDT routine. Setup address of timeout 
routine for new fork process in transmit routine. 


v03-023 RNGOO22 Rod N. Gamache 21-Sep-1982 : 
Add another fork block to UCB to allow a fork on transmit 
requests - allows users to transmit any size message up to 
16K. Remove the code to pre-allocate one transmit map register. 


v03-022 RNGOO21 Rod N. Gamache 27-Aug-1982 
Fix the CANCEL routine, to only abort I/C on SCANCEL 
request and not halt the tribu ary. 
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116 -SBTTL External and local symbol definitions 
117 ; 
113 3; System definitions 
90 120° 
0 121 SACBDEF 3; AST control block 
0 1 ¢ SADPDEF 3; Adapter control block 
00 1 SCANDEF 3; Define SCANCEL reason codes 
00 124 SCRBDEF 3; Channel request block 
000 125 SCXBDEF 3; Define CXB header 
4 1 § COEF ; Device classes and types 
00 1 SODBDEF 3; Device data block 
0000 128 SDEVDEF 3; Device characteristics 
0000 129 SDPTDEF ; Driver prologue table defs 
44 130 SDYNDEF 3; Control block defs 
000 131 SFKBDEF : Fork block definitions 
44 1 ¢ SIDBDEF ; Interrupt data block 
000 1 IODEF : 1/0 function codes 
0000 134 SIPLOEF 3; Hardware IPL definitions 
0000 135 SIRPDEF 3; 1/0 request packet 
0000. =«1 $ SJIBDEF 3 Job information block defs 
0000 1 SNMADEF ; Network Management definitions 
0000 138 SPCBDEF 3; Process control block 
0000 139 SPRDEF ; Processor register definitions 
0000 140 SPTEDEF 3; Define system PTEs 
0000 141 SSSDEF 3: System status codes 
0000 126 SUBADEF ; UBA definitions 
0000 14 SUCBDEF 3; Unit control block 
0000 144 SVADEF ; Virtual address defs 
0000 145 SVECDEF : Interrupt vector block 
0000 146 SXMDEF : XMDRIVER symbols 
0000 147 
44 148 ; 
4 149 ; Local symbol definitions 
000 150 ; 
44 151 
00000001 0000 136 JNX$S$ = 1 : Enables journaling 
000 15 
000 154; 
000 155 ; $010 parameter offsets 
000 136 : 
20098006 209 13 pt = . : Paraneter 1 
= ; Parameter 
$0900 8 80 138 Ps = 8 3; Parameter “ 
0000000C bp 160 P4 = 12 ; Parameter 4 
00000010 00 161 P5 = 16 : Parameter 5 
00 166 
00 165 ; 
bp 164 ; Constants 
165 ; 
00 196 . 
a4 fa 4 167 MAX_RCV = 7 ; Maximum number outstanding receives 
4 7 198 MAX_XMT = 7 : Maximum number outstanding transmits 
; 33 169 MAX_RCV_UV1 = 4 ; Maximum number of receives on u-VAX | 
00002 0 170 MAX"XMT"UV1 = : ; Maximum number of transmits on u-VAX | 
OO3F FF 00 171 MAX~BUFSIZ = 16383 ; Maximum DMP/DMV buffer size 


16-SEP-1984 AX/VMS Macro V04-00 Page | 
g-3e P-1 oats 88 8: 85 DRIVER. SRCIXDDRIVER.MAR; 1 . 3) 
3 MAX_BUFSIZ_UV1 = 1024 aximum size buffer on u-VAX I | 

UV1"BUFFER_AREA = —_ _XMT_UV1 *MAX _pursii Wipes 3; Size of u-VAX physically 
MAX_RCV_UV1 ®MAX_ BUF SIZ -Wwi> i, fone: uous buffer area 


infinite receives (unlimited) 
: ogi cal, infinite transmits 
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80001800 
000007F 


I Aet 98 


17 
17 
174 
175 
193 
608 6 178 XD_DEF BUFSIZ = 33¢ ; Default 5 butter size 
Boe 179 MAR_DMP_TRIB = ¢ ; Max tributaries on DMP11 device 
0 180 MAX" DMV— =1R18 = 1 : Max tributaries on DMV11 device 
464 e BS 181 MAX TRB =4 ; Maximum number of xmits per trib 
1 ¢ DSCSA pointer =4 ; Descriptor buffer address field 
8 183 P1_TRIB_MAS = XM$M_STS_ACTIVE!- ; Mask of user "‘read only’ bits 
000028F F 184 XM$M" STS" RUN INNING! “X<FF> ; in CDB device dependent longword 
OOOOOOFF 00 185 P1_LINE_MASK z aXeEFS : Mask of user ‘'read only’’ bits 
000 187 
44 ! g: : Journal buffer definitions 
gonna Ee Saat | REE snare fn 
= 3 
00000003 0000 13 JNL-Q10 = : ; Q10 Y Pt RObES SENSEMODE) operation 
00000004 0000 193 JNL_QUE = 4 ; QUEUVED PACKET operation 
00000005 44 194 JNL_POST = 5 : POSTED PACKET operation 
000000 000 195 JNL_XMTA = 6 ; Altstart XMIT operation 
00000007 0000 196 JNL_RCVA = 7 ; Altstart RECV operation 
00000008 444 197 JNL_CSRIN = ; Input to CSRs (same as QUE) 
00000009 0000 198 JNLCSROUT = 9 ; Output CSRs 
Q000000A 0000 199 JNL-CANC = 10 ; Cancel request 


~ 
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External and local symbol definit 4 DRIVER. SRCIXDDRIVER.MAR; 1 
1 . : in UCB device dependent longword 
; Local macros 
5 oe 
$ MACRO SETBIT POS,BAS,?L :; Set a single bit 
; BBSS POS,BAS,L 
v0 08 L: 
B} eENDM SETBIT 
00 11 -MACRO CLRBIT POS,BAS,?L ; Clear a single bit 
0 \ BBCC POS,BAS,L 
0 1 L: 
9 i -ENDM = CLRBIT 
000 1 «MACRO INCC COUNTER, CONTEXT=L,?7L ; Increment counter 
0000 1 INC’ CONTEXT COUNTER ; Do Increment 
444 18 L ; Br if no carry set 
000 1 DEC* CONTEXT COUNTER ; Leave at maximum value 
0000 0 L: 
0000 1 -ENDM = INCE 
0000 ; 
0000 -MACRO PUSHQ ARG ; Push a quadword 
0000 4 MOVa ARG,=(SP) ; Save argument on stack 
44 2 -ENDM PUSHQ 
0000 7 -MACRO POPQ ARG : Pop a quadword 
0000 8 MOVQ (SP) +, ARG ; Restore argument 
44 3 -ENDM POPQ 
ooo5 ¢ «MACRO PARAM TYPE,OFFSET,WIDTH,MIN,MAX, INVALID,BASE 
0000 3 : Inputs: 
000 34 ; 
000 22 3 TYPE = Parameter type 
000 63 OFFSET = Offset in UCB/CDB to current value 
000 ‘3 WIDTH = Width of field in UCB/CDB (B,W,L) 
000 8; MIN = Minimum value parameter is allowed to take 
000 9; MAX = Maximum value parameter is allowed to take 
0000 40 ; INVALID = Invalid flags in status word 
st 41 ; BASE = Data base (LINE,TRIB) 
4 4g : 
000 4 If BLANK TYPE 
38 44 -WORD 0 
45 . 1F_FALSE 
00 46 S$STYP = TYPE & PRM M_TYPE ; Isolate type code 
000 24 LIF NOT_BLANK <MIN>> S$S$TYP = S$SSTYP!PRM_M_MIN 
00 48 LIF NOT BLANK <MAX>, SSSTYP = SSSTYP!PRM_M MAX 
00 49 LIF NOT“BLANK <INVALID>, S$S$TYP = SSSTYPTPRM_M_INVALID 
00 50 ~ WORD ag he 
Bh) 51 SSSOFF = grr ser OF F_M_VALUE : Isolate offset only 
0 26 $$$WI1D = > Set null width 
000 LIF IDN <WIDTH><B>, S$$S$WID = <1a0FF_V_WIDTH> 
54 eLIF IDN <wiOTH><W>, SSSWID = <2Q0FF_V_WIDTH> 
35 LIF IDN <widiH><t> $$$WID = <3a0FF-V7WIDTH> 
é .WORD SSSOFF!S 
v0 5 LIF NOT_BLANK <MIN>, .WORD MIN 
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8 3 
ce Driver =-SEP=-19 AX/VMS o Vv04-00 Page 
definit Tens "Er Heath 88: #8: 88 YORIVER.§ SXDDRIVER.MAR: 1 ° (&) 
LIF NOT_BLANK <MAX>, — MAX 
;LIF_NOT“BLANK <INVALID>, WORD INVALID 
BASE’ PRM_BUFSIZ = ‘BASE _PRM *BUFSIZ + 6 
“ENDM = PARAM 
~MACRO COUT 


atte 1DN col ntrsevesS. » Ate = BEST YP: ceUeN. CNT_MAP> 
yreserved “mask width 


Lif TON wet a>. $$$WID = <1 anang 

LIF IDN <W Ionio<ss>, $$$WID = < SNMAS tnt” wID> 

LIF ION <WIDTH><32> ee =< ye CNT WID> 

-1IF EQ S$$WID, .ERR - Invalid bit width value 

“WORD NMA asm (nt COV sesuio:sssive 

"BASE' CNT_BUFSIZ~= ‘"BASE' CNT_BUFSIZ + 2 + <wWIDTH/8> 

11 ION <f NN<BITRAP><YES>, akse “CNT_BUFSIZ = “BASE® _CNT_BUFSIZ + 2 
.MACRO SKIP BIT,LOC,REG, CONTEXT =U 7L : SKIP FIELD 
BBC #BIT, ; Br if field not present 

TST CONTEXT (REG) + : Skip next field 

.ENDM = SKIP 

SDISPATCH, INDK, VECTOR, TYPE=W,NMODE=S*#, 2MN, 2MX,?S,2SS, 222 


-MACRO a 4 »$0SP1 
- IRP s0sP1 -2-$DSP1_1 
DSP2” $DSP1~2 


-ENDR 
-ENDM $DSP1 


-MACRO SDSP2,$PSP2_1,$DSP2_2 
<$D2P2_1-AND>*#2 + § 
“wORD SDSP2 _2-S 
.ENDM © $DSP2 
MACRO soup. $BND1_1,$BND1_2,$BND1_3 
$BND2.  $BND1_1,$BND1_2 
-MACRO senn2, send? Set 3 
LIF BNB2_1,$BND2_2-., .=$BND2_2 
~ENDM 
-MACRO $BND $BND_1,$BND 2 
. RP $BND~3.<SBNDB 2? 
SBNDT  $8ND~1,$BND_3 


END 
-ENDM $BND 
.=0 
$BND GT, <VECTOR> 
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SBND LT, <VECTOR> 
-=SS 
ASE' TYPE INDX , #<MN=-77>,NMODE * <MX=-MND> 


> 2) 
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MX-MNe1 
«WORD  <MX=MND*2 + 2 


$OSP1 <<VECTOR>> 
~=<MX-MND*2 + S + 2 
SDISPATCH 
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2 
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00000021 


00000041 


00000042 


00000044 


00000042 


0000003F 


PPR QDMA & BB EE EAA 
WN 0 ODNOAUE WN" OOONO NEW" OOONOU 


Overlays of IRP 
SDEFINI IRP 
- = IRPSW_FUNC+1 
SDEF IRPSB_XDFUNC 
- = IRPSQ_STATION+1 
SDEF IRPSB_ INDEX 
- = IRPSQ_STATION+2 
SDEF IRPSW_QUOTA 
- = IRPSQ_STATION+4 
SDEF IRPSL_CDB 
- = IRPSQ_STATION+2 
SDEF IRPSW_CSTATUS 
- = IRPSL_MEDIA+7 
SDEF IRPS$B_POLS 


16-SEP-19 
B78Ep=19 


-BLKB 


-BLKB 


~BLKL 


-BLKW 


-BLKB 


1 
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Overlay Function word 

DMP driver internal function code 
Overlay Station address 

Vector index for CDB 

Overlay Station address 

Number of recieve buffers 

Overlay ditto 

COB address 

Overlay ditto 

Completion status 


; Polling substate 


; Define driver internal function codes stored in IRPSB_XDFUNC of IRP. 
; NOTE: These are not really used as bit offsets - but as values. 


_VIELD XD_FC 
<IRIT 


<= 


<ROGSS>,=- 
<WTMODEM> ,- 


<XAIT>,= 
<RECV>,= 


<NUMSYNC>,= 
<POLSTAT>,= 
<POLSS> .= 


Internal function codes 
Establish tributary 

Init the device 

Shutdown tributary 

Shutdown controller (device) 
Change controller characteristics 
Change trib characteristics 
Read Line unit modem register 
Read tributary error counters 
Read global error counters 
Read trib counters and clear 


; Read global counters and clear 
; Read tributary status slot 
; Read global status slot 


Write Line unit modem register 
DASSGN request to halt trib 
DASSGN request to kill trib 
CANCEL request to halt trib 
Transmit request 

Receive request 

Set number of sync chars 

Latch polling state 

Fetch polling sub-state 


. = VAX/ 11/DMv11 ~sep- 
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$800 338 SDEFEND IRP : End of IRP overlays 
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SDEF UCBSL_XD_RUN -BLKL ; Tribs that entered Run state 
: Tribs that were forced to halt 


: Starter’s PID 


$ XD_ ; Mode of operation in DMP11 format 
SDEF UCBSB_XD_INTIM .BLKB ; Input wait timer 
ree SDEF UCB$B_XD-OUTTIM “BLKB ; Output wait timer 


446 SDEF  UCBSB_XD_SETPRM 
447 $DEF  UCBSB~XD"NMS -BLKB 1 
UCBS$B~XD~PRO “BLKB 1 
UCBS$B~XD~DUP “BLKB 1 
450 $DEF  UCBSB7XD~CON “BLKB 1 
DE UCBSB~XD"BFN “BLKB 1 


; Start of parameter section 
; Number of Sync chars (0=>default) 
ection 


>>>, 
> OONNNOAU SOM Wace cNco an an 6D 


; Duplex mode 
; Controller mode 
; Number of receive buffers 


95 ; 
39 ; Definitions that follow the standard UCB fields 
9 . 
9 SDEFINI UCB GLOBAL ; Start of UCB definitions 
00000090 4 : ? - = UCBSC_LENGTH : Position at end of UCB 
090 t86 SDEF UCBSL_XD_JNLBUF .BLKL 1 ; Pointer to the journal buffer 
094 405 SDEF UCB$Q_XD_ QUEUES ; Message and 1/0 request queue heads 
094 404 SDEF UCB$SQ_XD_INPUTQ .BLKQ 1 ; Request awaiting input port 
009C 405 SDEF UCBSQ_XD_XMT_REQ .BLKQ 1 ; Transmit 1/0 requests waiting » mapping 
OAS 406 SDEF UCBSQ_XD_RCV_PND .BLKQ 1 ; Receive buffers given to device 
OAC 407 SDEF UCBSQ_XD-INFOUT .BLKQ 1 ; Information Out queue 
0084 408 SDEF UCB$Q_XD_POST -BLKQ : 3; Requests awaiting posting 
00BC 409 SDEF UCBSQ"XD-RCV_BUF .BLK 3; Free receive buffers (lookaside List) 
00000006 oote 219 UCBSC_XD_QUEUES = <.=UCBSQ_xD *ouEUES>/8 3 Number of queue heads 
00C4 216 SDEF UCBSL_XD_RCV_MAP .BLKL MAX_RCV ; Receive mapping vector 
QOOEO 413 SDEF UCBSL_XD_XMT_MAP .BLKL XMT ; Transmit mapping vecto 
st: rt SDEF UCBSL_XD-RCV_PA .BLKL MAX_RCV wivt ie Seowtus mapping butters physical 
o10¢ 218 SDEF UCBSL_XD_XMT_PA .BLKL MAX_XMT_UV1 : Transmit mapping buffers physical 
; address 
Bide 213 SDEF UCBSL_XD_RCV_VA .BLKL MAX_RCV -W! ; Receive mapping buffers virtual 
ress 
Bist ? ? SDEF UCBSL_XD_XMT_VA .BLKL MAX_XMT is Transmit mapping buffers virtual 
; address 
ote 4 ; SDEF UCBSL_XD_UVIBUF .BLKL 1 ; u-VAX I buffer area 
0130 423 SDEF UCBSB_XD_RCV_MAP .BLKB 1 ; Receive mapping in use flags 
Big 424 SDEF UCBSB_XD_XMT_MAP .BLKB 1 ; Transmit mapping in use flags 
01 ; 425 SDEF UCBSB_XD_RCV_MAX . 1 ; Maximum concurrent receives 
013 4 § SDEF UCBSB_XD_XMT_MAX .BLKB 1 ; Maximum concurrent transmits 
0134 427 SDEF UCBSB_XD_TRB_CNT .BLKB 1 ; Number of active tributaries 
0135 428 SDEF UCB$B_XD-XMT-TRB .BLKB 1 ; Maximum number of xmits per trib 
bi38 : 4 SDEF UCBSW-XD-QUOTA .BLKW 1 ; Receive buffer quota 
0138 $3! SDEF yee, XD_VEC ; Start of vector areas 
0138 4 : SUME MAX BMP TRIB. a3 MAX _DMV v_TRIB zallocate maximum slots 
013 $3 SDEF ett XD_TRIB_VEC .B B PAX DM “TRIB ; Tributary address vector 
0158 434 SDEF  UCBSL-XD"PID VEC .BL KL =? PrTRIB D Lookup vector 
01D oe? SDEF UCBSW_ xD. CHAN_VEC .BLKW MAX_DMP_TRIB ; id, number rookup vector 
021 4 § SDEF UCBSL_-XD-CDB_VEC .BLKL MAX x-DMP TRIB ; CDB address vecto 
00000058 029 a3 UCBSC_XD_VECS™ < ~UCBSL_XD tYECS>/ 4 ; Number of Longuords in vectors 
0598 239 
029 440 
02A 441 
O2A rr 
QO2A 44 
O2A 
O2A 45 
: 
| AB 
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AC & 
AC £3 SDEF UCBSW_XD <pOLLPan ; Start of pollin pereneter section 
AC 454 SDEF UCBSW_XD_SRT -BLKW 1 3; Streaming tributary timer 
A 455 SDEF UCBSW_XD_SLT -BLKW 1 ; Delta timer 
8 d § $DEF — UCBSU~XD-DDT “BLKW 1 : Dead timer 
8 457 SDEF UCBSW_ a DLT -BLKW 1 3; Poll delay time 
Bo & 8 SDEF UCBSW"XD-RTT -BLKW 1 ; Retransmit timer 
0000000F +4 $23 UCBSC_XxXD_ SETPRR = ,-UCBSB_XD_SETPRM ; Size of parameter section 
a4 ree SDEF UCBSB_XD_FKB -BLKB FKBSC_LENGTH ; Fork process fork bloc« 
cf ce$ SDEF UCBSC_XD_LENGTH ; Size of XDDRIVER UCB 
CE 465 
000002C6 8 cf 188 - = UCBSB_XD_FKB+FKBSL_FR3 : Position at R3 of fork block 
02C6 468 SDEF UCBSL_XD_SELO .BLKL 1 ; Saved SELO and SEL2 from interrupt 
8 8 : H SDEF UCBSL_XD_SEL4 -BLKL 1 ; Saved SEL4 and SEL6 from interrupt 
O2CE 471; 
8 cs ris 3; Define device status bits 
O2CE 474° SVIELD UCB.0.< ; XDDRIVER UCB$W_DEVSTS bits 
O2cE 475 <XD_ INITED, .M>, - 3; Device is initTalized 
O2CE 476 <XD- INITING, ,M>,- ; Device is fant bay - waiting for Timeout 
O2cE 477 <XD-PTP, ,M>,= ; Device in point to hy operation 
O2CE 478 <XD_FORK PEND. A>. ; Fork process scheduling in progress 
O2CE 479 <XD-DTRCCR : DTR modem signal is cleared 
O2cE 480 <xo “FORK “XhT om, = ; Transmit fork block in use 
O2CE 481 3 
O2cE 48 eo 
O2cE 48 SDEFEND UCB ; End of UCB definitions 
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485 ; 
2 § ; Device register offsets and bit definitions 


4 
2 : SDEFINI XD ; Start of status definitions 
4 491 
492 SDEF SELO ; Ist word of CSR 
0 493 SDEF BSELO 3; Byte select 0 / Control & status 
00000001 000 494 -—BLKB 1 
ae 
$01 497 ; Bit positions for device control/status register 
re 
0001 209 VIELD XD_BSELO,0,<- ; Control & status bits 
aed 4 SIG. .A> = : Input interrupt enable 
B00) 308 <{EO, .m>,- : Output interrupt enable 
0001 505 <ROI1, ,M>,- > Request input 
$001 809 : 
0001 508 S$DEF BSEL1 ; Byte select 1 / Control & status 
00000002 a a? -BLKB 1 
000 511 VIELD XD_BSEL1,0,<- ; Control & status bits 
000 218 ZMAINT, ,M>, = ; Maintenance request 
000 51 <,2>,7 3 
43 ae <LQOPB. A>. ; Loop back 
B00S 516 <ACLR,.M>,- : Master clear 
000 517 <RUN, ,M>,- ; RUN state 
0003 819 ‘ 
6008 520 SDEF SEL2 ; 2nd word of CSR 
0002 521 SDEF BSEL2 : Byte select 2 / Command register 
00000003 B08 : ¢ -BLKB 1 
000 524 VIELD_ XD_BSEL2,0,<- ; Command register fields 
000 525 ZTYPE,3,M>,- ; Command type code 
000 5 $ <Q22,,4>,- 3; Q-Bus in 3B bit mode 
000 5 <RDI,,M>,- 3 Ready input 
000 5 3 <ERR,,M>,- 3; ** DRIVER DEFINED error indicator ** 
000 5 <,1>,° ; 
000 ; 0 <RDO, ,M>,- 3; Ready output 
BP 
44 3 g VIELD XD_1,0,<- ; Define input command codes 
00 4 ZRCV>,= 3; Receive in ~ 
00 5 <CONTROL>, = 3; Control in - 1 
00 6 <MODE_DEF>,- : Mode definition = 2 
00 <,1>,= : RESERVED 
9 8 cKMIf> ~ > Xmit in -4 
$08 820 
000 41 SDEF BSEL3 -BLKB 1 ; Byte select 3 / Tributary address 


& 
4 
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48 SDE 


SDEF 
SDEF 
SDEF 


F 
SDEF 


SDEF 


SDEF 
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SEL4 
BSEL4 -BLKB 
BSELS -BLKB 


SEL6 
BSEL6 -BLKB 


<,2>,° 
<UPOL, ,M>,- 
<LPOL,,M>,=- 
<,2>,° 

> 


VIELD XD_CI,0,<- 
ZNOOP>, = 


<ESTAB>,- 
<KILL>,= 
<ISTRT>,=- 
<MAINT>,=- 
<HALT>,=- 
<,10>,=- 
<RDMODEM>, - 
<WTMODEM>,- 
<INTDIAG>= 
> 


BSEL7 
-BLKB 
SEL10 -BLKW 


SDEFEND XD 


1 
1 


1 
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3rd word of CSR 
Byte select 4 / Misc. 


Byte select 5 / Misc. 


4th word of CSR 
TSS/GSS read/write requests 


TSS/GSS control register 


Read TSS 

Read/clear TSS 
Write TSS 

Enable common pool 
Disable common pool 


Unlatch pei tine 
Latch polling 


SEL6 command codes 
NOOP request 
Establish tributary 
Kill tributary 


a 
Start trib in hop mode 
Halt tributary 
RESERVED 
Read Modem request 
Write Modem request 
Interface diagnostics 


Byte select 7 / Misc. 


Byte select 10 - character count 


for DMV only 


End of device register definitions 
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00000000 


00000005 


00000010 


00000012 
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CDB_C_SE 
SDEF 


PDP AAEAAAAAAAAAAAAAAAAAAAA AAA AAA A AS 
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"SSE 
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SDEFINI CDB GLOBAL 

COB_L_DEVDEPEND .BLKL 1 : Circuit dependent status 

CDOB_L_AST -BLKL 1 ; Attention AST List 

COB_W_SIZE -BLKW 1 ; Size of COB 

COB_B_TYPE -BLKB 1 3 type of structure 

COB_B_POL -BLKB 1 ; Polling state 

CDOB_W_STS -BLKW 1 : Circuit status 

COB_B_TRB_ADDR .BLKB 1 ; Tributary address 

COB_B_XMT_C -BLKB 1 ; Number of xmits outstanding 
CDOB_Q_QUEUES i; Message and I/0 request queue heads 
COB_Q_XMT_REQ .BLKQ 1 ; Transmit requests awaiting RUN 
COB_Q_RCV_REQ .BLKQ 1 ; Receive 1/0 requests awaiting message 
COB_Q_RCV_MSG .BLKQ 1 ; Receive buffers containing messages 
COB_Q_XMT_PND .BLKQ 1 ; Transmit 1/0s given to device 

CDB-Q" INF OUT -BLKQ 1 ; Information Out queue 

EVES = <.-CDB_Q_QUEUES>/8 :; Number of queue heads in CDB 
COB_L_CNTS ; Start of counters area of CDB 
CDOB_L_BRC -BLKL 1 3; Receive aye count 

CDB_L_BSN -BLKL 1 ; Transmit byte count 

CDB_L_DMR -BLKL 1 ; Receive message count 

CDB_L_DMS -BLKL 1 ; Transmit message count 

TS = .-CDB_L_CNTS ; Size of counter section of CDB 
COB_L_PID -BLKL 1 ; Starter's process ID y 
CDB_W_CHAN -BLKW 1 ; Channel number associated with this COB 
CDB_B_SETPRM ; Start of settable parameters 
CDB_B_MRB -BLKB 1 ; Receive buffer count 

CDOB_B_MST -BLK 1 3; Maintenance State given by P2 buffer 
COB_W_POLLPRM ; Start of Poll parameter section of CDB 
COB_W_DEL_TIMER .BLKW 1 ; Delay timer 

COB_B_POL_QACT .BLKB 1 ; Active trib Q value 

CDB_B_POL_RACT .BLKB 1 ; Active trib R value 

COB_B_POL_QIN .BLKB 1 : Inactive trib @ value 

CDB_B_POL_RIN .BLKB 1 ; Inactive triv R value 

COB_B_POL_QDYI .BLKB 1 ; Dying @ value 

COB_B_POL_RDYI .BLKB 1 ; Dying R value : 
CDOB-B-TO_INACT .BLKB 1 ; Number of NDM to Inactive 
CDB_B_TO_DYING .BLKB 1 ; Number of no responses to Dying 
CDB_B_TO DEAD .BLKB 1 3; Number of no responses to Dead ‘ 
CDB-B-MAX_MSGS .BLKB 1 3 Maximum number of xmits per selection 
COB_W_SEL_TIMER .BLKW 1 : Selection timer 

CDB_W_BAB_ TIMER .BLKW 1 ; Babbling trib timer < 

TPRA = .-CDB_B_SETPRM ; Size of settable param section of CDB 
COB_C_LENGTH ; Size of XDDRIVER CDB 


: Define status bits used in CDB_B_STS 
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_VIELD (CD_TS$,0,<- 
<ESTAB, .M>,= 
<MOP, A>, 
<CANCEL,.M>,= 
<BUFRET..M>.= 


<BUF QUO, ,M>,- 
<START, A>, = 


SDEFEND CDB 
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Tributary status bits for CDB_W_STS 
Tributary established 

Tributary is in MOP mode 

Cancel 1/0 in progress 

Buffers have been returned 

Buffer quota Soneqeaen needed 
Tributary is started 


XOl 
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654 ; 
; Receive buffer definition 
. SDEFINI RCV 
00000000 ? 8 .=0 
59 SDEF RCV_L_LINK -BLKL ¢ : Forward and backward queue Links 
0 660 S$DEF RCV_W_SLKSIZE .BLKW ; Total block size 
OOA 661 SDEF RCV_B_BLKTYPE .BLKB 1 ; Block type 
008 066 SDEF RCV_B_MAPSLOT .BLKB 1 i Mapping slot number 
00 665 SDEF RCV_L_BACC -BLKL 1 i: Buffer address / character count 
01 664 SDEF RCV_B_BAHI -BLKB 1 ; Buffer address hi 6 bits (Q22 mode) 
04 006 SDEF RCV_T_DATA ; Receive data 
04 66 
04 668 SDEFEND RCV 
444 069 
00 670 ; 
0000 671 ; P2 buffer header definition 
0000 ore : 
0000 67 SDEFINI P2B 
00000000 0000 674 .=0 
0000 675 SDEF P2B_L_POINTER .BLKL 1 ; Pointer to start of data 
0004 676 SDEF P2B_L_BUFFER -BLKL 1 ; Address of user's data buffer 
0008 677 SDEF P2B_W_SIZE -BLKW 1 :; Size of P2 buffer 
OOOA 678 SDEF P2B_B_TYP -BLKB 1 ; Type of structure 
0008 679 SDEF P2B_B_SPARE -BLKB 1 3; Spare byte 
000C 680 SDEF P2B_C_LENGTH ; Size of P2 buffer header 
OOOC 681 SDEF P2B_T_DATA ; Start of data 
000C one 
o00c 38 68 SDEFEND P2B 
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g ‘ -SBTTL Standard tables 
687 ; 
688 ; Driver prologue table 
0 rts § 3 
6 23) DPTAB - ; DPT-creation macro 
00 yet END,- 3; End of driver Label 
38 3 PTER=UBA, - 3; Adapter type. 
0 694 UcBSI2e=<UCBSC =XD_LENGTH>, = t Length of 
o3 $3? NAME=XDDRIVER,= 3 Driver name 
88 69 DPT_STORE INIT ; Start of load 
Oe ; initialization table 
00 DPT_STORE UCB,UCB$B fet Bg ; Device fork IPL 
Boze DPT-STORE UCB,UCB$B_DIPL.B,21 ; Device interrupt IPL 
004 DPT“STORE UCB,UCBSL_DEVCHAR,L,<- : Device characteristics: 
0040 os DEVSM_NET!- network device 
0040 70 DEVSM_SHR!- shared device 
0040 704 DEVSM_AVL!- available device 
0040 705 DEven_IoVv'= input device 
B08 706 DEV$M_ODV> ; output device 
004 707 DPT_STORE UCB{UCB$B_DEVCLASS,B,DC$_SCOM ; Device class = synch comm 
Boer A DPT “STORE ucB, UCBSB_ DEVTYPE,B 6,bT$_ 5MP11 ; Device type 
004F 710 DPT_STORE REINIT 3; Start of reload 
OO4F 711 : initialization table 
O04F at DPT_STORE DDB, DDBSL _DDT.D,XDSDDT ; Address cf DDT 
0054 71 DPT-STORE CR 3; Address of device 
0054 714 CRBSL VINTDEVECSL _UNITINIT,= z unit initialization 
0054 715 D,UNIT_INIT 3 routine 
0059 716 DPT_STORE CRB,= 5 harena of CSR RDI 
0059 717 CRBSL_INTD+4,D,RDI_INTRPT 3; interrupt routine 
O0OSE 718 DPT_STORE Le : Address of CSR RDO 
44 719 NTD2+4,D,RDO_INTRPT ; interrupt routine 
B82 ay DPT_STORE Bet - “UCBSL réC D,FORK_PROC 3; Set up timeout vector 
0068 Et DPT_STORE END : End of initialization 
4 7 3; tables 
000 724 
0000 725 : 
0000 726; Driver dispatch table 
0000 4 ; 
0000 729 DDTAB = ; DDT~creation macro 
000 730 DEVNAM=XD,- 3; Name of device 
0000 731 START=STARTI : Start 1/0 routine 
000 7 ‘ FUNCTB=XD FUNCTABLE. - : FDT address 
00 7 CANCEL=CARCEL,- ; Cancel 1/0 routine 
8 734 Diacer =<Set DUMP ,- ; Register dump routine 
4 735 DI AGBF =<36712> 3; Diagnostic buffer sizing 
6 , : ALTSTART=ALT “START : Alternate start 1/0 
738 
6 739 ; Function dispatch table 
740 ; 
0 741 
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<READVBLK,= 
READLBLK,- 


SETMODE, 
SENSEMODE ,- 
SETCHAR> 

C 


RCV_FOT,= 
<RERDVBLK,=- 
READLBLK,= 
READPBLK> 


SETMODE_FDT,- 
<SETMODE , SET CHAR> 


SENSEMODE FDT,- 
<SENSEMODE> 
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FDOT for driver 
Valid 1/0 functions: 
Read virtual 

Read logical 

Read physical 
Write virtual 
Write logical 
Write physical 
Set device mode 
Sense mode 

Set device chars. 


Butfered functions: 


Write logical 
Write physical 
Set device mode 
Sense mode 

Set device chars. 


FDT read routine for 
read virtual, 

read et pat 

and read physical. 


; FDOT write routine for 


write virtual, 
write logical, 
and write physical. 


FDT set mode routine 


for set mode, set char. 


FDT sense mode routine 
for sensemode 


ne 1s 
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r 4 -SBTTL P2 buffer verification tables 
? ; 
4 ¢ 3; Define P2 buffer verification offsets 
7 f : : SDEFINI PARAM 
a re : Paraneter type 000 *12e* 
>,- 3 me e 
00 > 0 <MIN,1,>,- ; Parameter ainiou value 
00 91 <MAX,1,">,° ; Parameter maximum value 
000 35 <INVALID, 1,">,~ ; Parameter invalid flags 
00 794 
3 HE SS pint boe 
214,M>,- ; set value 
000 739 <WIDTH.2 A> - ; Size of field in structure 


SDEFEND PARAM 


‘C2 00 0D CD 
oo 
—o 


WWM A.A AA AIT RIPON 2 BOQOOOOOOO 
NOME WR OODNAUEWN =O 


: Define UCB parameters 
LINE_PRM_BUFSIZ = 0 


LINE~PARAM 


PARAM NMASC_PCLI_PRO,- 
OF FSET=UCBSB_XD_PRO,WIDTH=B,- 
MAX=NMASC_LINPR-DMC,- 
INVALID=UCBSM_XB_INITED,- 
BASE=LINE 


PARAM NMASC_PCLI_DUP,- 
OF FSET=UCBSB_XD_DUP,WIDTH=B,- 
MAX=NMASC_DPR_HAL,- 
INVALID=UCBSM-XD_INITED,- 
BASE=LINE 


PARAM NMASC_PCLI_CON,- 
OF FSET=UCBSB_XD_CON,WIDTH=B,- 
MAX=NMASC_LIRNCN-LOO,- 
INVALID=UCBSM_XB_INITED,- 
BASE=LINE 


PARAM WMASC_PCLI_BFN,- ; Number of receives 
OF FSET=UCBSB_XD_BFN,WIDTH=B,- 
MIN=1,MAX=255,- 
INVALID=UCBSM_XD_INITED,- : Device can't be ON 
BASE=LINE 


PARAM NMASC_PCLI_BUS,- : 
OF FSET=UCBSW DEVBUF S12, WIDTH=W,- 
MIN=1 ,MAX=MAX_BUFSIZ,- 3 
INVAL [D=UCBSM~XD_INITED.- ; Device can't be ON 
BASE=L INE 


00000000 Line parameter buffer size 


Start of Line parameters 


Protocol selection 


Device can't be ON 


Duplex mode 


Device can't be ON 


OWONAMNE WN O OOO ity 


Conroller mode 


Device can't be ON 


OOOO COCOCOCOCCOOCOCOCOOSOOCOCCOOCOOCOoCoOOoOoCow 


DOOCOCOCOCOSOOSOOSOOSOOSOOSSOSOOOSOSOOOSOOSOSOOOOOOOOOOOOOOOSOOoOoOO -™ 
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Buffer size 
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OAS 33 PARAM WNMASC_PCLI _SLT,=- ; Delta timer 
AG OFF SET=UCBSW_XD_SLT.WIDTH=U,~ 
AG 40 MIN=50,- 
ad 4} BASE=L INE 
Baa $$ PARAM WMASC_PCLI_DDT,- ; Dead timer 
OAA 844 OF FSET =UCBSW_XD_DDT.WIDTH=W,~ 
OAA 45 MIN=50,- 
AA 46 BASE=LINE 
08 48 PARAM WNMASC_PCLI_DLT,- ; Delay timer 
$e 49 OF FSET=UCBSW_XD_DLT ,WIDTH=w,- 
00Be 29 BASE=LINE 
0B4 5 PARAM WNMAS$C_PCLI_SRT,=- : Streaming trib ti 
0B4 4 OF F SET=UCBSW_XD_SRT WIDTH=W,- Bos cheat 
0084 54 MIN=50,- 
0084 35 BASE=LINE 
00BA Reo PARAM NMASC_PCLI_NMS,- 3; Number of sync chars 
OOBA 858 OFFS Taucese XD_NMS ,WIDTH=B,- 
OOBA 859 MIN=8,MAX=255,- 
ppee 560 BASE=LINE 
00C £06 PARAM NMASC_PCLI_RTT,=- ; Retransmit timer 
00C &6 OF F SE TsUCESU_XO_ATT WIDTHOU,= 
00C 864 MIN=50,- 
99¢ 865 BASE=LINE 
00C 67 PARAM 3 End of tabl 
OOCA He 3 sie age 
zee HH 3; Define CDB parameters 
00000000 dock 871 TRIB_PRM BUFSIZ = 0 ; Trib parameter buffer size 
45 He TRIB_PARAM: ; Start of trib parameters 
OOCA 874 PARAM NMASC_PCCI_TRI,- : Trib address 
454 He OF ESE T=COB_B_TRB_ADOR .WIDTH=B. ~ 
OOCA 877 INVALID=XM$SM_STS_ACTIVE,- : Trib can't be estadlished 
OCA 378 BASE=TRIB 
00D $60 PARAM NMASC_PCCI_MRB,- ; Maximum receive buffers 
990 Ht OFFS T=CDB_B_MRB,WIDTH=B,- 
900¢ : INVAL{D=XMSM_STS_ACTIVE,- : Trib can't be STARTING 
44 B85 BASE=TRIB 
DA 6 ASSUME NMASC_STATE_ON EQ 0 
ODA 87 PARAM NMASC-PCCI_AST,- ; Maintenance state 
80a B89 OFF SET=CDO 8 MoT .WIDTH=B,~ 
ODA 890 INVALID=XMSM_STS_ACTIVE,- : Trib can't be established 
oe 3) BASE=TRIB 
£3 38 PARAM NMASC_PCCI_POL,- ; Latch polling state 
E 94 OF FSET=CDB~B_POL .WIDTH=B,- 


a —— 2 
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Maret P2 buffer verification tables g- ise 90:48:88 DRIVER. SRCIXDDRIVER.MAR; 1 . (io VQ4- 
€ 95 BAR SHRAS _CIRPST_DED,- 
; 38 BASE=TRIB™ 
E 9 PARAM NMASC_PCCI_TRT,= ; Transmit delay timer 
E 9 OF FSET=CDB7w_DEL_TIMER,WIDTH=W, = 
SF ? BASE=TRIB 
see. § PARAM WNMAS$C_PCCI 3; Active base 
eC 9 OF FSET=CDB~ 8 POL QACT ,WIDTH=B,- 
E 904 BASE=TRIB ~ 
OF 905 
OF 9 $ PARAM WMASC_PCCI ACI ; Active increment 
oro «(9 Orr sete CDB- B_POL _RACT ,WIDTH=B,- 
OF 908 BASE=TRIB ~ 
pore 909 
OOFS 910 PARAM PCCI_IAB,- 3; Inactive base 
OOFS 911 Orrsete €DB~B_POL_QIN,WIDTH=B,- 
Bore a BASE=TRIB ~ 
OOF 914 PARAM NMASC_PCCI_IAI,=- ; Inactive increment 
OOF 915 OF FSET=CDB “8. POL_RIN,WIDTH=B,- 
OOF 916 BASE=TRIB 
OOFC 917 
OOFC 918 PARAM NMASC_PCCI -bY8.= ; Dying base 
OOFC 919 OF FSET=CDB BB. POL_QDYI ,WIDTH=B,- 
OOF C 920 BASE=TRIB 
0100 921 
0100 9 § PARAM NMASC_PCCI 9 ; Dying increment 
0100 9 OF FSET=CDB_ B_POL_RDYI ,WIDTH=B,- 
BiSe 4 : BASE=TRIB ~ 
Hn 926 PARAM WNMASC_PCCI_IAT ; Inactive threshold 
0104 927 OFF SET=CDB7B.T0_INACT,WIDTH=B,- 
0104 928 BASE=TRIB 
0108 44 
0108 930 PARAM NMASC_PCCI_DYT,- ; Dying threshold 
0108 931 OF F SET=CDB~ _B_TO_DYING ,WIDTH=B,- 
Bide 336 BASE=TRIB 
Ore 934 PARAM WNMASC_PCCI_DTH,- ; Dead threshold 
BIR 935 OF FSET=CDB_B_TO_DEAD ,WIDTH=B,- 
1% 938 BASE=TRIB 
119 338 PARAM WMASC_PCCI_MTR ae ; Max abutted xmits 
11 ~ OF FSET=CDB— _B_MAX_MSGS ,WIDTH=B,- 
11 940 MIN=1,- 
110 941 MAX=160,- 
1 4g BASE=TRIB 
11 944 PARAM NMASC_PCCI_BBT,- ; Babbling trib timer 
11 945 OF Ese Tac CDE Ww _BAB_ TIMER ,WIDTH=W,- 
11 94 
118 9% BASE= yRi8 
TIE 948 Sade 
11E 8694 PARAM NMASC_PCCI_R Selection timer 
IE 930 oF ser=¢ =(DB7W_ "SEL _TIMER, WIDTH=, - 
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tix XDDRIVER.MAR; 1 dm (8) 


3; End of trib tables 


: : DEFAULT TRIBUTARY PARAMETERS 
ber _TRIB_PARAM: : 
KSSUME CDB_B_MRB EQ CDB_B_SETPRM 
ASSUME CDB_B_MST EQ CDB_B_MRB+1 
961 ASSUME CDB_W_DEL_TIMER EQ°C0B 8B MST+1 
96 ASSUME CDB_B_POL_QACT EQ CDB_Q_BEL_TIMER+2 
96 ASSUME CDB"B"POL-RACT EQ CDB-B-POL~QACT+1 
964 ASSUME CDB"B-POL_QIN EQ CD8_8_POL_RACT+1 
965 ASSUME CDB_B_POL_RIN EQ CDB_B POL _QIN+1 
§ ASSUME CDB_B_POL_QDYI EQ COB_6_POC_RIN+1 
ASSUME CDB"B"POL-RDYI EQ CDB~B-POL~OCYI+1 
968 ASSUME CDB"B-TO_INACT EQ CDB~B-POL-RDYI+1 
969 ASSUME CDB_B_TO_DYING EQ CDB-B-T0_ INACT+1 
970 ASSUME CDB_B_TO DEAD EQ CdB_ 6 TO _BYING+1 
971 ASSUME CDB_B-MAR_MSGS EQ COB 6 T0_DEAD+1 
97 ASSUME CDB"W-SEL-TIMER EQ CDB_6_MAX_MSGS+1 
97 ASSUME CDB_W BAB_TIMER EQ cDB- Ww SEL ~TIMER+2 
974 -BYTE INF REV ; Default # of receive buffers 
975 -BYTE NMASC_STATE_OFF ; Default maint state is OFF 
976 «WORD 0 $ prqnease delay timer 
977 BYTE ie 3; Q for active 
978 BYTE ; R for active 
979 BYTE 0 : Q@ for inactive 
980 «BYTE 64 ; R for inactive 
981 -BYTE 0 ; Q for qying 
ons -BYTE 16 ; R ford ing 
98 -BYTE 8 3 inactive threshold 
984 -BYTE § : Dying threshold 
985 BYTE ; Dead threshold 
986 -BYTE 4 ; Maximum abutted messages 
987 ee 3000 ; Selection timer (dummy entry) 
988 WORD 6000 : Babble timer in Msec 
989 DEF TRIB_PARAMSZ = .-DEF_TRIB_ PARAM 
330 ASSOME [CDB_C _SETPRM EQ BEF _TRIB_PARAMSZ 
99 ; Default Line parameter values 


994 DEF_LINE_PARAM:: 
995 ASSUME UCBSB_XD_NMS EQ 


UCBS$B_XD_SETPRM 
NMS +1 


996 ASSUME UCB$B_XD-PRO EQ UCBS$B_XD- 

997 ASSUME UCB$B_XD"DUP EQ UCB$B_XD-PRO+1 
8 ASSUME UCB$B_XD-CON EQ UCB$B_XD_DUP+1 

999 ASSUME UCB$B8_XD"-BFN EQ UCBSB_XD-CON+1 

009 ASSUME UCB$W"XD"SRT EQ U ~XD"BFN+1 

001 SUME UCBSW-XD-SLT EQ UCBSW_XD"SRT+ 

O08 SUME UCBSW-XD"-DDT EQ UCBSW_XD-SLT+ 

00 ASSUME UCB$W_XD-DLT EQ UCBSW_XD-DDT+ 

4 ASSURE CBSW"XD-RTT EQ UCBSW_XD-DLT+ 

09¢ BYTE NMASC -LINPR PO! 

00 -BYTE NMASC™DPX FOL 

008 -BYTE NMASC"LINTN_NOR 


Number of sync chars (default) 
Protocol is TW testers 

Duplex is fu 

Controller mode is normal 


3 | 
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Toon On. P2 bat tes capiiieating texan , -SEP-1984 90:48:88 DRIVER. SRCIXDDRIVER.MAR; 1 (i v04 
.BYT ; Number of receive buffers 
17 13) 19 CORD f é 00 3; Streaming trib timer in eee 
3 13F 101 HORD G : Delta timer in Msec 
1 141 101 “WORD 10000 ; Dead timer 
00 143 (1 i§ WORD z Poll delay timer in Msec 
oooogner 1c? 1018 guor at SE 6 tim hea Se ee 
fF LIN 
: 190 ! 1 ASSOME OCBSC_xD _SETPRM EQ DEF_LINE_PARAMSZ 
167 18 : Polling sub-state return table 
147 1020 ASSUME NMASC of ite st ACT NE 8 
147 1021 ASSUME NMASC"CIRPST_INA NE 
147 10 ¢ ASSUME WAS. “CIRPST_DIE NE 0 
0147 10 ASSUME NMASC_CIRPST_DED NE 0 
gee 1024 POLSS_TBL: 
4 147 1025 -BYTE NMASC_CIRPST_ACT M Active 
0 148 10 $ -BYTE NMASC_CIRPST_INA 3; Inactive 
00 Pe 10 -BYTE QO 3 Unknown 
00 O14A 1028 -—BYTE O 3; Unknown 
04 0148 1029 “BYTE NMASC_CIRPST_DIE > Dying 
00 014C 1030 -BYTE 0Q 3; Unknown 
00 014D 1031 -BYTE 0 : Unknown 
05 O14E 1032 .BYTE NMASC_CIRPST_DED ; Dead 
ge Se 
O14F 1035 Maximum buffer size allowed - assumed to " MAX_BUFSIZ (16KB), but 
ne 1938 3 ; gets overlaid if the processor is a u-VAX I to Be MAX_BUFSIZ_UV1. 
14F 1038 MA X_W_BUFFER: 
FFF O14 +44 MAX. fe ue MAX_BUFSIZ 3; Assume 16kb buffers 
0020 Bia. 1962 «WORD MAX_DMP_TRIB ; Assume max‘mum tribs for DMP11 
0153 104 
B18 ee: 3; Line counter type codes 
00000000 4 1968 LINE. ~EOURTERS = 0 : Size of ctrl counter buffer 
104 COUNT NMASC_CTLIN_RPE,- ; Remote process errors 
0133 1948 BITMAP=YES, QIDTH=8, BASE=LINE 
HEE 1051 COUNT WNMASC_CTLIN_LPE, 3; Local process errors 
138 1980 BITMAP=YES, QIpTh= 8 ,BASE=LINE 
aa 
O97 1055 : Tributary counter type codes 
0157 1 aS : : NOTE: The first set of trib counters are kept by the driver, since 
B12) ' 28 : > the device only keeps 16 bit counters for these counters. 
00000000 132 1060 trig. CNT BUFSIZ = 0 > Size of return buffer for trib cou | 
137 10¢¢ NMASC =$3°UR BRC,- ; Bytes received 
137 1063 WIDTH=32,BASE=TRIB 
0159 1065 COUNT NMASC_CTCIR_BSN,- ; Bytes sent 


KpOR R = VAX/VMS DMP11/ 
wh 3 P2 buffer verification tables 
189 1 
158 (1 $ 
158 1 3 COUNT 
158 (1 $ 
15D 1070 
15D 1071 COUNT 
15D 1 1 
15 107 
15F 1074 TRIB_COUNTER1: 
15F 1075 COUNT 
1SF 1 6 
161 107 
161 1 4 COUNT 
161 1079. 
163 1 39 
163 1081 COUNT 
16 1086 
B182 133 
0165 1084 COUNT 
3h 1085 
0167 1086 
0167 1087 COUNT 
0167 1088 
0169 1089 
0169 1090 COUNT 
0169 1091 
0168 1376 
0168 109 COUNT 
0168 1094 
016D 1095 
016D 1998 COUNT 
016D 109 
O16F 1098 


G 4 
DMV11 Device Driver 
¢ 


WIDTH=32,BASE=T 


NMASC_CTCIR_DBR 
WIDTH=32,BASE=1 


NMASC_CTCIR_DBS 
WIDTH=52,BASE=T 
NMASC_CTCIR_SIE 
WIDTH=16,BASE=T 


NMASC_CTCIR_ DEO 
BITMAP=YES,Q1D 


NMASC_CTCIR_D 
BITMAP=YES,Q1 


NMASC_CTCIR_L 
BITMAP=YES,Q1 


E 
D 
8 
D 
NMASC_CTCIR_RB 
BITMAP=YES,QID 
NMASC_CTCIR_SL 
BITMAP=VYES,QID 
LR 

=T 

R 

T 


NMASC_CTCIR 
WIDTH=8,BASE 
R 


NMASC_CTCI 


T 
I 
T 
E 
T 
E 
T 
T 
T 
T 
R 
i T 
WIDTH=8,BASE=TR 


RIB 


R18 


R18 


R18 

h=8 ,BASE=TRIB 
h=8 ,BASE=TRIB 
h=8 ,BASE=TRIB 
h=8 ,BASE=TRIB 
h=8 BASE=TRIB 


iB 
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"373 e=198e b0:19:00 


Peet 46) 


; Data blocks received 


Data blocks sent 


Selection intervals elapsed 
Data errors outbound 

Data errors inbound 

Local buffer errors 

Remote buffer errors 
Selection timeouts 

Local reply timeouts 


Remote reply timeouts 


H 
11/DMV11 Device Driver 16-SEP-1984 728: AX/VMS Macro v04-00 P 5 
t initialization routine mets 7 90:48:60 DRIVER. SRCIXDDRIVER.MAR; 1 — Gd 


-SBTTL UNIT_INIT, Unit initialization routine 


8 
3 
z< 
= 
z3 
53 


;+* 
: UNIT_INIT = Readies unit for 1/0 operations 
: Functional description: 


The operating systes calls this routine after calling the 
controller initialization routine: 


at system startup 
during driver loading 
during recovery from a power failure 


The unit is put online. If power has failed, the unit will 
be forced to timeout. 


Inputs: 
R4 = CSR address 
RS = UCB address 
Outputs: 


RO destroyed 


i i Bi ie Be Be Bi Ri ee Bs ee Bs Re Bs es Bi es Bs Be Be Be Bs Be Bs Be Bs Bs es Bs Be | 


UNIT_INIT: : Initialize unit 
1F §66B PUSHR #*M<RO,R1,R2,R3,R4> ; Save all registers 
6445 10 AB BISW § #UCBSM. ONLINE ,UCBSW_STS(R5) : Set unit online 
0B AS) 90 MOVB UCB$B_FIPL(R5),- 3; Set the fork block FIPL 
02c1 ¢5 UCB$B-XD_FKB+FKBS$B_FIPL(RS) : 
08 90 MOVB #OYNST_FRK,- 3; Set structure to FORK BLOCK 
02c0 C5 UCB$B_D_FKB+FKBSB_TYPE(RS) : 
226— 30 BSBW INIT_OCB : Initialize the UCB 


: For u-VAX I, we will have to allocate a physically contiguous buffer 
; area for performing 1/0 on the DMV. 


CPUDISP <<790. INIT OTHERS>,- 


0; INIT“OTHERS>.- 
750; INIT~OTHERS>.- 
<730; INIT“OTHERS>.- 


<uv1; INITZUV1>> 


INIT_UV1: 
AC AF 0400 8F MO ; Set maximum size buffer | 
AA A 1 ; Set maximum number of tribs 
; Set device type to be DMv11 
; Is the buffer area allocated? 


Br if yes, continue 


oO 

_ 

™~™ 

o 

NO 

w 
oc coo-0 0o® 
OV FuwMooo 


5 CLRL ; Zero end marker 
3 10$: PUSHL R ; Save bad buffer on stack 
51 0000180C 8F 20$: MO #UV1_BUFFER_AREA+12,R1 ; Compute size of buffer area 


; .-that must be contiguous 
; Allocate buffer 


a at ed a ad ed = dd td dd dd 


OO 0909.09 69 09 09 09 GD GD 09 SI NI IDS DS DDD PAPA A AAA AA AAA AAAAAA SO 


OOo 


SOOOOOCOCOCOCOOCOCOCOCOOOCOCCOCOCOCOOCOCOCOOCGOOCCOCOCOOCOCOCOCOCOOCCOQMOOCOOOOOOOCOOoOOo 
a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee 
ee ee ee a a a ae el a a a el a a a ll 


DADA ITU ES BBB BEB BBE BWW WWIII ROPONONONUNUNUNID 2 2 2 BQO OOO OOOOCO 


AMAL AN 9 OO NA UNE WIN $$ O OO NAF WIN  O OD NA NEU  O OD NAME WIN 0 OO NOUS Wt" 


o 

z 
a mna<—< << 
oa o < 
See Se Se Se Se ee ee eee 


00000000 ' GF 


_ 
o 


JSB G*EXESALONONPAGED 


a) nf 


58 50 =—«E9 


NN 
z2=< 
rr 
— 

“s 
$3 
— 


vehi * 8F dO 
08 A2 


La 
1 
1¢2 (1157 
105 «11 8 
105 «11 

105 (1160 

108 116) 

100 1196 

10D 116 

10D 1164 

9 de HE Iie 
50 000019FF ar CG ioe 1187 

A 

50. GOOO01FF 8F 1DF 11 : 
50 “9 F7 8F 8 QO1EF6 1170 
ree he i 
545115 1F1 1173 

53 O0000000'GF DO O1F4 1174 
ee Be ie 
53 $% "3 ; 01 197 
8 on Be ig 

; 09 1180 

0 EF 0209 1181 

51 64—COY 0208 1156 

54 04 CO 0 118 

7 3 8 BN ie 

8518 1196 

53 D6 40216 118 

EE 50 F5 0218 1188 

o12¢ cS) =652~—Ciéi 3518 1133 

50 as | 3 ° 1191 

08 1 1138 

Q0000000°GF 16 0225 119 
ON Be is 

022d 1196 

0220 1197 

15 64 AS 05 €1 O22D 1198 
00 €1 0232 1199 

10 68 AS 4 1 39 

01 AS 40 8F 90 7? 1201 
55 01 «15 = = 78 . 8g 

54 «(01-10 4 8 40 120 
ig Bee 
05 0249 1206 


on™ 

= 
—-3 
3< 
toad 
e- 


30$: 


40$: 


50$: 


60$: 


INIT_OTHERS: 
BBC 


90$: 


1 4 
iatizstion routine 'S-sep-19R6 99:49:08 


BLBC _—s_ RO, S08 

ASSUME IRP$W_SIZE LT 12 

ASSUME IRPSB-TYPE EQ IRPSw $12 

MOVL #<DYNSC pur 198 6>!<0v1_ 
IRPSW_STZE(R2) 

; Make sure buffer area is contiguous! 

MOVAB 12(R2),RO 

BICL #-51 

ADDL  #UV1_BUFFER_AREA+511,R0 

BICL  #511,R0 

ASHL  #=-VA$V_VPN,RO,RO 

MOVAB 12(R2)7R1 

EXTZV S*#VASV_VPN,- 
S*#VASS-VPNR1 RG 

MOVL GoMMGSOL _SPTBASE .R3 

MOVAL (R3)CR4)-R4 

EXT2ZV STaP TES PEN. 
S*#PTESS_PFN, (R4) ,R3 

ADDL #4,R4 

BRB 40$ 

EXTZV S*#PTESV_PFN.- 
S*#PTESS PFN, (R4) ,R1 

ADDL #4, RG 

CMPL = R31 

BNEQ 108 

INCL RB 

SOBGTR RO,30$ 

OVL R2,UCBSL_XD_UV1BUF (RS) 

POPL RO 

BEQL © 608 

JSB G*COMSDRVDEALMEM 

BRB 50$ 


#UCBSV_POWER ,UCBSW_STS(R5) ,90$ 
BBC #UCBSV~XD_INITED,- 
UCBSW_BEVSTS(R5),90$ 
MOVB #XD_BSEL1_M_MCLR,BSEL1(R5) 
ASHL  #XD~BSEL2-VZERR+16,41,R3 
ASHL =. #16 #1, RG 
BSBW SCHED FORK 
POPR #°M<RO,R1,R2,R3,R4> 


AX/VMS Macro v04-00 
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re i, 


Br if none available 


UFFER_AREA+12>,-; Set size and type 
; of buffer 


Skip header 

Compute BOFF of buffer area 
Add in Length of area that 
must be contiguous & roundup 
Round to page boundry 

Compute number of pages-1 

Get address of buffer area 
Get system page table number 


Get system page table base 

Compute PTE address 

Get page frame number of 
first page 

Get address of next PTE 

Get into loop 


Get page frame number of 
next page 

Get address of next PTE 
Is buffer contiguous? 

Br if not. try again 


Compute next page frame number 
Loop if more pages 
Save buffer area address 


Get next buffer address 

Br if no more 

Deallocate the bad buffers 
Look for more 


Branch if not powerfail 
Br if not inited 


Master clear the device 
Indicate error — 
Indicate powerfail 


; Schedule fork process 
; Restore registers 
; Return 


XDD 
v04 


J 4 
MP11/DMV11 i iver 16-SEP-1984 00:28: AX/VMS Macro v04-00 Page 27 XDD! 
on Transmit 1/0 Sperstion FoT Rou 5-SEP-1984 8:98:85 DRIVER. SRCIJXDDRIVER.MAR; 1 B) v04 


bea a 


4A 1 8 -SBTTL XMT_FOT, Transmit 1/0 Operation FDT Routine 
tA i 10 ;+¢ 
rr ! it : XMT_FDT = Transmit 1/0 Operation FDT Routine 
4A 18 : Functional description: 
4A 1215 : This routine is called by the SYS$Q10 system service to dispatch a 
. : 1§ 3; WRITE 1/0 request. 
4A 18 : The Q10 parameters for WRITEs are: 
4A 1220 : P1 = address of the buffer 
4A 1221; P2 = size of the buffer 
8 a : § : ALL other parameters are unused. 
024A 1224 ; The buffer is validated for access and locked into memory. The 1/0 operation 
024A 1225 ; is started if possible else it is blocked temporarily on one of the various 
8 rr : § 3 wait queues of the UCB or CDB. 
024A 1228: 
8 ry ! 4 3; Inputs: 
024A 1231: R3 = IRP address (1/0 request packet) 
03th 1 ; 3 R4 = PCB address (process control block) 
024A 1 : RS = UCB address (unit control block) 
024A 1234; R6 = CCB address (channel control block) 
asen : $2 3 R7 = bit number of the 1/0 function code 
3 rr : 3 : Outputs: | 
Og4a 39 : RO = status of transmit request initiation | 
Ose 1241 : R1,R2,R8,R9 are destroyed 
024A 1 g $ R3-R7 are preserved. 
024A 1243; 
S5ca 1308 
: 4A 1246 XMT_FDT: ; Transmit FDOT routine 
40 AS. 7C O24A 1 43 e CLRQ IRP$Q_STATION(R3) ; Clear trib address field 
50 14 3 4D 124 MOVZWL S*#SS$_BADPARAM,RO ; Assume bad parameters 
58 6C 0 50 1 t MOVL P1(AP),R8 ; Get starting address of user buffer 
59 ©6004 AC BC 33 1250 MOVZWL 9 P2(AP),R9 ; Get length of user buffer 
7 13 1251 BEQL ABORTIO ; Br if zero length buffer 
Bet A St Ht) TES BeSlasnecme |_| Setetaeatet Pera atts tte 
seprmmpanedid se 3 1$32 = : (No return on NO atcess) 
0000 $5 158 2 #CXBSC_HEADER,R1 : Polelcas tenia al buffer needed 
x H J ; Calculate len u 
- — 5 34 6 i 38 Puta PMR ETRE pee ; Save re Seterd 
00000000 ' GF ig $8 1 8 ‘3. G*EXESBUFFRQUOTA 3 agg i precees, hes pulttctent quota 
. or quo 
00000000" 2 8 8 is } 20 Oe Gre XE SALLOCBUF ; Allocate CXB buffer for output 
650 €9 7A 1261 BLBC RO,20$ : If LBC allocation failure 
Boao fe pe ip 1 $¢ ROVE 3b RS cas) RO : or el abarent - 
V ° ° 
” + Tg ; 08 Hy 1264 SUBL R1,J1B$L_BYTCNT (RO) ; Adjust buffered 1/0 quota 


K 4 
XDDRIVER - VAX/VMS DMP11/DMV11 Device Driver 19-SE Po} AX/VMS Macro V04-00 Page 
yo b08 XMT_FDT, Transmit 1/0 Operation FDT Rou SEP=19 3b 88 #8: 85 DRIVER. SRCIXDDRIVER.MAR; 1 . (8) 
OA 1 8B 9 1265 MOV R1, IRPSW_BOFF (R3) ; Set number of bytes char ed to quota 
3 | 3) 88 BD : 96 MOVL R2, IRPSL- SVAPTE(R3) ; Save CxB address in in IRP ° ’ 
91 «1 4: ASSUME CXBSL_F 
91 «1 § ASSUME CXBSL- “Bt alae 4M 
82 48 A 9E 91 1270 MOVAB EXBSC HEA R2),TR2)+ ; Set pointer to start of data 
8 D4 33 ! 4 CLRL (R2)+" 3; Clear next Link cell 
97 1 ig ASSUME CXBSW_SIZE EQ CXBSL_BL+4 
82 51 B80 eS ! ee MOVW R1,(R2)+ ; Set size of structure 
9A 1 26 ASSUME CXBSB_TYPE EQ CXB$W_SIZE+2 
9A 127 ASSUME CXBSB"CODE EQ etareress 
82 18 %8 3A : re MOVZBW #DYNSC_CXB,(R2)+ Set structure type 
9D 1 9 ASSUME CXBSW_LENGTH EQ CxXB$8_CODE+1 
52 C 4 9D 1281 ADDL #CXBSC_HEADER-CXBSW_ LENGTH, R2; Get address of data portion of butter, 
62 68 iw AO 1 Ht MOVC3 A. (R2) ; Move data to system buffer 
BA rv : o POPR #°M<R3,R4,R5> 3; Restore registers 
1045 30 0 r 1285 BSBW XLATE ; Get COB address 
29 5 e9 8 Ag 1 $ BLBC RO, ABORTI ; Br if error 
ac 87 SETIPL UCB$B_FIPL(RS) : Syne acces to UCB 
9 44 1290 PUSHQ R6 ; Save registers 
50 0 90 0283 1291 MOVB #JNL_XMT, a 3 at journal type = XMIT 
2214 30 B6 1 3 BSBW XD_FILL_J ; Fill the Journal buffer 
4 5 E9 B9 129 BLBC ; Br if error 
86 2A BO O7F¢ 1294 MOVW IRP$W_BCNT(R3), (R6)+ ; Store byte count 
3 ; ! 33 10$: POPQ R6 ; Restore registers 
54 DD O2C3 1298 PUSHL R4 : Save R4 
¢0 10 02C5 1299 BSBB XMT_START ; Start transmit operation 
4 8EDO0 8 C7? 1300 POPL RG 3; Restore R4 
08 50 =O«ED CA 1301 BLBC RO, ABORTIO ; Br if error : 
00000000'GF 17 3 cp ! 8 JMP G*EXESQIORE TURN ; Exit Q10 service to await completion 
38 #6BA 8 D3 : be 208: POPR #*M<R3,R4,R5> ; Restore registers 
0208 1 Bg ABORTIO: ; Abort the 1/0 request 
00000000°GF 17 0205 130 JP G*EXESABORTIO ; and exit Q10 service 
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-SBTTL KMT_START, Start Transmit Operation 


++ 
; XMT_START = Start Transmit Operation 
; Functional description: 


; This routine is called to start a transmit operation. If the apveuter? 

Ss running and there are not too gong transmit a S already pending 
; then the request is given to the device to transmit immediately if possible. 
; If there are no more mapping register slots available, or a UNIBUS gh 
; re Myr ae set cannot be 4 located then the request is queued to the UCB xmit 
; wait queue. 


; If the circuit is not running yet or the circuit has too many request” 
; pending, then the request is queued to the CDB xmit wait queue. 


; Inputs: 
0208 : 
0208 R3 = IRP address 
0208 RS = UCB address 
0208 R9 = CDB address 
0208 
0208 IPL = FIPL 
8 dB 

0B ; Outputs 
0208 
S RO = status of transmit request 
0208 R3-R7 are preserved. 
8 0B 
-ENABL LSB 
TRIB_ INACT: 
50 2004 8F 3c MOVZWL 9 #SS$_DEVINACT,RO ; Trib is not active 
34 «#11 «0 15$ ; Return error 


TO0_B's 

“WOVZUL #SS$_BADPARAM, RO ; Buffer is too large 

BRB 15$ ; Return error 
; Start transmit operation 
; Br if trib not active 


CMPW ; Is buffer too large? 
BGTRU ; Br if buffer is too big 


; Insert entry on CDB transmit wait queue if circuit not running or 
; there are too many transmit requests pending. 


MOVB exo Fe V_XMIT, IRPSB_XDFUNC(R3) ; Set function request in IRP 
INSQUE J. StDe Q_ XMT _REQ?4(R9) : Insert IRP on CDB xmit wait Q 


XMT_ALT_START: ; Alternate start of xmits 


: ; outs, 
R9 = COB address 


XMT_START: 
BBC #XMSV_STS_ACTIVE 
CDB_L~DEVDEPEND (R9) , TRIB_ INACT 

IR RPSU BCNT(R3) ,MAX_W_BUFFER 
T00_BIG 
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XDDRIVER = VAX/ 
yo 008 XMT_START, Start Transmit Operat -SEP-1 


BBC #XMSV_STS_RUNNING, = 
CDB_L-DEVBEPEND (R9) 30s 
REMOUE CDB_0_XMT_REQ(R) ,R 


DECB = £DB_B_XMT_CNT(R9) 


Be GDBB XMT CNT(R9) 
INSQUE (R33,COB_G_XMT_REQ(RO) 
BRB «308 


198: MOVZBL $*#SS$_NORMAL,RO 
RSB 


00A0 DS «=63——COOE 208:  INSQUE  (R3),@UCBSQ_XD_XMT_REQ*+4(R5) —_; 


; 1/0 request in the CCB wait queue. 


$0s:  eBS #UCBSV_XD_FORK_XMT,- 
UCB$W_BEVSTS(R5) ,10$ 

MOVZBL UCBSB~XD_XMT_MAX(RS) ,R4 

FFC #0,R4,UCB$B_D_XMT_MAP(RS) ,R4 

BEQL 108 


: Store IRP info in UCB 
REMQUE @UCBSQ_XD_XMT_REQ(R5) ,R3 
BVS 10$ 


54 ‘6188 
54 0131 (5 54 


Morro 
Sou 
oO 
> 


53 009° DS OF 
DD 


SETBIT R4,UCB$B_XD_XMT_MAP(RS) 
MOVB R4, IRP$L_MEDIA+4(R3) 


> Skip MAP REGISTER useage if u-VAX I. 


CPUDISP <<790,XMT_OTHERS>,=- 
<780,XMT_OTHERS>,=- 
SE gh RAT OTHERS? 0 
<730,XMT_OTHERS>, = 

<UV1, XMT_UV1>> 


3C AS 5490 


ii a ak i a ak mh at a at ts = — 2s 1 ss I SS — 9 Ss ss SS ts Ss ss —) _ ss ts 


PRR ERR REPRE EERE PEELE EE PWN 


WI OO NOMEWI OD NOME UR 2 O O00 NOUN UMD 2 DOOD SOP RD OES OUT LIN Ooo de 
>. . 


RON 9 OM DOODODOOOS OO OOO OOOO O00 0000 0909 0909 09 09 SINISE NNO OO 


SA XMT_UV1: 
3A AS 32 Ad iB A "MOV IRPSU_BCNT (RS) -1RPSL MEDIA*2(R3) 
50 010¢ (544 OD 5F MOVL UcBSL XD_XMT_PA(R5) CR4J,RO : 
3B A 0 8 5 MOVW RO, IRPSL“MEDTA(R3) ; 
50 30 FO BF 9 ASHL #-16,R0,RO ; 
° sd + P 
DAS 50 MOVE RO, IRPSL_MEDIA+5(R3) 
if : Copy the data to the contiguous buffer. 
51 9124 (544 09 7 MOVL UCBSL_XD_XMT VACR5)ERGIR1 : 
52. at D 7 MOVL  @IRPSC_SUAPTE(R3).R : 
8B 7¢ PUSHR #M<R37R4,R5> 
V W_BCN : ; : 
61 62 32A 7 MOVC3 IRPSW_BCNT(R3),(R2),(R1) 
3 BA POPR #*M<R3,R4,R5> 
0076 «(31 3 BRW 90$ : 


Hn 4 
PMStart transmit Speration  S-SEP=1984 00:19:00 EDRIVER. SREIKDDRIVER. MAR: 1 


Br if trib is not running 


Get oldest xmit request 
Br if none = process others 


ro 8, 


One less xmit possible for this ci. 


Br if we can handle this request 


Else, set count back to zero 
Re-insert on front of queue 
Try to start waiting xmits 


Return success 


Insert request on UCB wait Q 


; Find a free mapping register slot. If none currently available, put the 


Br if XMT fork block in use 


Get max concurrent transmits 
Find a free transmit slot 
Br if none free 


Get oldest xmit request 
Br if none, leave 


Set mapping slot in use flag 
Save mapping slot number used 


Save BCNT in device format 
Get pa Hi aay ical address 
Store BAOO-BA 

Shift down pig byte 

Store BA16-BAd1 


Get contiguous buffer's VA 


; Get system buffer'’s VA 


Do the copy 
Continue 


N 4 
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XMT_START, Start Transmit Operation Breer 1 8bs 8:98:88 YORIVER cRese eter wan. 789 Ft, 
3 XMT_OTHERS: 
7E oH} 2 A 88 MOVW IRPSW_BCNT(R3) ,UCBSW_BCNT(RS) ; Set buffer count 
5 D MOVL, @IRPSC SVAPTE(RS) .RO ; Get buffer virtual address 
ne 4 F AB Bicw3 ab Vices. BoFr Pies 3; Compute BOFF 
59 50.1 EF EXTZV avagy VeVPN aVAss VPN,RO,RO + Get virtual page n 
1 Og90000 Ft DO MOVL GannosGl SP : Get the base a Srese net SPTEs 
78 A 6140 ODE MOVAL (R1) “ices SVAPTE (RS) ; Set address of the S$ 


; Allocate UNIBUS map registers 


BISW #UCBSM_XD_FORK_XMT,- 
UCBSW_BEVSTS(R5) 
PUSHAB $ 


JMP G* LOCSREQMAPREG 


2 AB 


68 A 
OOOO3BB*EF OF 
0000000'GF 17 


Assume we will have to wait 

.-for fork to run 

Push address of fork 
Request some map registers | 


: The ah ty code may be executed as a fork process, therefore we have 


14 
1426 
1258 
i 
1659 
1430 
1432 
1438 | 
1434 
AB 1435 
14 $ 
14 
138 
3 rs 3; to setup a timeout service routine offset. 
20CB* 0389 1206 -WORD TIMEOUT-. ; Timeout service routine 
20 AA 8 1443 408: BICwW #UCBSM_XD_FORK_XMT,= : Fork block is no longer in | 
68 AS D 1444 peeey bE vSTS(R5) ; ..use 
00 €0 O3BF 1445 BBS aD | ESTAB :; Br if trib STILL established 
Oc OC Ad O3C1 1446 CoBou SYS(RI) $0S ; | 
03C4 144 RELMPR ; Else, release map registers 
0 33 ‘f CA 1448 MOVZWL #SS$_ABORT,RO ; Return request in error 
1800 1 308 1482 BRW 10_DONE 3 Complete the 1/0 request 
57 DD 0300 1451 50S: PUSHL R7 3: Save R7 
57 24 A5 00 03D2 1526 MOVL UCBSL_CRB(R5) ,R7 ; Get CRB address 
306 145 ASSUME VECS$W “MAPREG+2 EQ VECSB_NUMREG 
306 1454 ASSUME VECS$B"NUMREG+1 EQ VECS$B_DATAPATH 
34 A? D0 $08 1455 MOVL CRBSL_INTD+VEC$W_MAPREG(R7),- ; Save mapping info 
QOEO (544 300 1436 UCBSL_XD_XMT_MAPTRS)CR4J ; 
8350 1638 ; Map the buffer | 
b3pp 1460 ASSUME UCBS$W_BOFF+2 EQ UCB$W_BCNT 
38 AS = =67C AS 08 1 1461 MOVL UCBSW"BOFF (RS) ,IRP$L_MEDIA(R3) ; Move byte offset and size 
7 4 A? F E 1296 INSV CRBS “INTD+VECSW MAPREG(R7),- : Insert BA9-BA15 
9 zt 146 Ae ? o AROSE -MEDIACR3) 
50 , EO 1464 EXTZV aot abe es VECSW_MAPREG(R7), " 3; Get BA16-BA17 
38 a 0 FO O3EF 1465 INSV #36, MEDIACR3) ; Insert BA16-BA17 | 
Nelo 16 F5 1466 JSB ride Salsa i Loadmap registers 
7 BED FB 14 POPL 3; Restore R 
FE 1208 
FE 4070 | 
43 130) 3; Request and load the port with the buffer address and size, and return 
0098 D5) =663~—CtC«OO#E F 1258 . INSQUE (R3),@UCBSQ_XD_INPUTQ+4(R5) ; Insert transmit request at end of | 
403 1474 ; UCB input wait queue. 
59 DD 04 1475 PUSHL R9 :; Save CDB address 
4 1078 DSBINT UCBS$B_DIPL(RS) ; Sync access to device 
OBC1 30 O040C 147 BSBW LOAD_PoRT ; Load port 
40F 1078 ENBINT ; Restore IPL 
59 BEDO 0412 147 POPL RY ; Restore CDB address 


, BS | 

IMY STARE, Start transmit Operation _ Sasepatobe 90:99:00 EORIVER. eaedeopaives.man;1 2% (38) | 

FEES. 311 0613 1480 BRe XMT_ALT_START i Lets try it again 
1B 14 “DSABL LSB 
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-SBTTL RCV_FDT, Read 1/0 Operation FDT Routine 


+ 
RCV_FDT = Read 1/0 Operation FDT Routine 
Functional description: 


This routine is called by the SYS$QI0 system service to dispatch a 
READ 1/0 request. 


The Q10 parameters for READs are: 


Pi = address of the buffer 
P2 = size of the buffer 
ALL other parameters are unused. 


The specified buffer is checked for accessibility. The buffer address and 
count are saved in the packet. Then IPL is raised to device fork IPL and if 
a message is available the operation is complete. Otherwise the packet is 
queued onto the waiting receive List of the CDB. 


If the function specifies a modifier of IOSM_NOW, if no message is 
available when the test is made, a status of SSS$_ENDOFFILE is 


returned. 
Inputs: 

R3 = 1/0 Packet Address 

R4 = PCB Address 

RS = UCB Address 

R6 = CCB Address 

R7 = Function Code 

AP = Address of first operation-specific Q10 parameter 
Outputs: 


RO = status of the receive Q10 operation 
R3-R7 - unchanged 


RCV_FDT: Read FDT process routine 


IRP$Q_STATION(R3) ; Clear tributary address field 
; Check request parameters 
MOVZWL S*#SS$_BADPARAM,RO ; Assume bad parameters 
MOVZWL P2(AP),R1 ; Get Length of buffer 
BEQL 10$ ; Br if zero - abort 1/0 
MOVL 1 CAP ; Get buffer address 
MOVL = RO, IRPS$L MEDIACRS) : Save buffer addr in IRP 
CLRW «=—sTRPSW_BOFF(R3) : No quota to return during completi 
JSB G*EXESREADCHK 3; Check accessibility 
; (No return on no access) 
BSBW + et ; Get CDB address 
BLBC RO,10$ ; Br if error 
SETIPL UCBSB_FIPL(RS) : Raise IPL to fork level 


dD 5 
x & = VAX/VMS 11/DMV11 Device Driver 16-SEP-1984 00:28: AX/VMS Macro v04-00 Pa 
rae tit RCV Ore aod 1/0 Operation FDT Rout ine $7 3FEn 1882 90:48:65 YORIVER. SRCIXDDRIVER.MAR; 1 - Are 
154 ; _to lock the — base 
154 Ho OR ; Save register 
50 ge 3 i 1 cf Rove aM, RCV,RO 5 Set journal l type = RECV 
20 64 154 BSBw XD_FILL_JNX ; Fill the journal buffer 
red : ‘3 POPQ R6 3; Restore registers 
of 3 rr : $8 Bsee : V_START ; et receive operation 
; Br ror 
00000098" eF f af ! 9 JMP G*EXESQIORETURN : Return to await completion 
FE7D 31 32 1 3) 10$: BRW ABORTIO ; Abort the 1/0 request 


3 | 
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x 8 = VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 00:28: AX/VMS Macro v04-00 Page 35 
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! : ~SBTTL RCV_START, Start Receive Operation 
4 1 § 3++ 
| : ; RCV_START = Start Receive Operation 
4 53 > Functional description: 
1561 ; At this point, the buffer is okay and we are now at fork IPL. Now check 
458 1 86 3; to make sure the tributary has been established. If not, we will return 
58 15635 ; an SSS_DEVOFFLINE error status. Note that the circuit need not be turned 
45 : rt) ; on in order to do a read request. 
‘3 1366 ; Inputs: 
458 1568 ; R3 = IRP address 
045 139? 3 R5 = UCB address 
0458 1570 ; R9 = CDB address 
0458 1571 ; 
045 1276 : IPL = FIPL 
0458 1573 ; 
bee 137% ; Outputs: 
0458 1376 ; RO = return status of receive request 
0438 137% 3 R3-R7 are preserved. 
0458 1579 ;-- 
ott 1580 -ENABL LSB 
0458 1581 RCV_START: 
50 2004 8F 3¢ ott 1386 MOVZWL #SS$_DEVINACT,RO ; Assume trib not active 
E1 0450 158 BC #XMS0_STS_ACTIVE.- : Br if trib not active 
4C 69 045F 1584 CDB_L~DEVBEPEND(R9) ,40$ RES 
Oc ad 046 «€1 Beek 133? BBC BCD _TS .V BUF QUO. CDB_W_STS(R9) .~ ; Br if no buffer management 
21 a 1 0466 1389 MOVB #XD-FC_V_RECV, IRPSB_XDFUNC(R3) : Set function request in IRP 
09 29 A306 046A 1588 ae #10$V_ROO, IRP$w_FUNT(R3) ,5$ : Br if not READ 
2 20 a9 — O46F 1589 MOVAB CDB_Q”-RCV_MSG(R9) ,R2 ; Get address of received msgs 
52. 62 01 0473 1590 CMPL (R23 ,R2 ; Is there a message? 
24 = o13 943 1591 BEQL ; Br if no - return EOF 
7 1336 5$: DSBINT ucese DIPL(RS) : Sync access to device 
0098 DS = 63 OF 7F 159 INSQUE (R3),SUCB$Q_XD_INPUTQ+4(R5) ; Insert at end of input Q 
0B49 484 1594 SBW LOAD_PORT ; Bump quota for trib 
487 1595 ENBINT ; Restore IPL 
aS et 74 1336 RB 30$ ; Return with success 
oe ; 1398 RCV_START_ALT: ; Alternate receive startup 
st 1600 > Check to see if message is available 
52 20839 OF C 1608 REMQUE @CDB_Q_RCV_MSG(R9) ,R2 ; Dequeue a received message 
0S 1D Os 1604 BVS 10$ ; Br if none 
rs 5 : Complete the receive with available message 
rere 30 049 1809 ; BSBW FINISH_RCV_IO ; Complete the 1/0 request 
1 11 049 1908 BRB 30$ 3 and exit 
497 1 
497 1610 


; No message available. If IOSM_NOW specified, return with SSS_ENDOFFILE 


F § 
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RCV_START, Start Receive Operation -SEP-1984 00:19: DRIVER. SRCIXDDRIVER.MAR; 1 (15) Vv 
4 1818 3; Status. Otherwise, queue IRP to await arrival of message and continue. 
0A 20 as 1 0497 161 los: BBC #10$V_NOW, IRPSW_FUNC(R3),20$ =; Branch if not READ NOW 
50 0870_8F ‘ H' 1614 15$: MOVZWL #SS$_ENDOFFILE,RO ; Set no message status 
172C Al 1615 BSBW DONE 3; Complete the 1/0 
11 rey 1218 BRB $ 3 and exit 
oA 1618 ; Queue the IRP to CDB receive IRP wait queue 
1¢ 24 $3 OE A6é 1620 08: INSQUE (R3),@CDB_Q RCV_REQ+4(R9) ; Queue IRP to await message 
0 1 QA Q6AA 1621 30S: MOVZBL $*#S5$_NORMAL ,RO ; Set successful return 
05 QO4AD 16 ¢ 40S: S$ ; Return 
4AE 16 -DSABL LSB 
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nV -SBTTL ALT START, Alternate Start 1/0 Routine 


+ 
ALT_START = Alternate Start 1/0 Routine 
Functional description: 


This entry point is used by the “internal IRP’' interface. IRP's 
which enter the driver at this point have not been pre-processed 
by our FDT routines. These IRP’s have been built by another 
driver and look exactly Like a regular IRP. 


This routine, therefore, must do the same processing which the FDOT 
routines would do if they had been called as in the case of a normal 


eoree The PID and CHAN fields of the IRP are sufficient to map to a 


Inputs: 


R3 - IRP address 
RS - UCB address 


Be Se Se Se Ge Se Ge Ge Se Ge Be Se Be Ge Be Ge Ge Ge Se Se Se Se Se Se Se Se Ge Se Ge Se Se Se Se 
+ 
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> 
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Rene e ALL pertinent fields of the IRP are assumed to be valid. 
O4AE 6 IPL = FIPL 
O4AE 16 
6 Outputs: 
O4AE 6 
ory: ? RO = status of the transmit/receive request. 
Q4AE 16 R3-R5 are preserved. 
O4AE 6 
O4AE 16 -- 
O4AE 6 
O4AE 1661 ALT_START: 
59 bp O4AE 166 PUSHL R9 : Save RY 
40 A3 C 048 66 CLRQ IRP$Q_STATION(R3) ; Clear station field 
28 AS) =6BS SCO04B 66 TSTW RPS$SW_CHAN(R3) **eetemporarytttt 
05 19 0486 1665 BLSS $ p**teetemporary*ttt 
28 AS 8 a3 Ag 4B8 $66 MNEGW IRPSW_CHAN(R3) ,IRPSW_CHAN(R3) ;****temporary*t*t® 
0° O2A0 ¢ p BD 1667 3S: MOVL  UCBSL7XD_PID(R5),RO : Use starter's PID 
{Ag 0 ace 668 BSBW XLATE-ALT ; Get CDB address 
38 50 —=—s«éED C $3 BLBC ; Br if error 
18 2A a3 01 «£0 04¢8 679 BBS #IRPSV_FUNC, IRPSW_STS(R3),10$ : Br if read request 
4CD 1673 PUSHQ R6 ; Save registers 
50 90 100 674 MOVB #JNL_XMT,RO ; Set journal type = XMIT 
1FF7? =6©30 «6040 675 BSBW XD_FILL_JNX ; Fill the journal buffer 
E9 rt: 978 BLBC R ; Br if error 
86 3203 BO 0409 167 MOVW IRP$W_BCNT(R3), (R6)+ > Store byte count 
rt 44 5$: POPQ R6 ; Restore registers 
FEO 30 £9 681 BSBW XMT_START : Initiate the transmit 
1B sO? te ° ; BRB 30$ ; Return 
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VMS 
_START, A 984 DRIVER. SRCIXDDRIVER.MAR; 1 
# 18 We: pusne 5 ist 
3; Save registers 
50 90 1889 ROVE FINL RCVRO i Set journal type = RECV 
1FDF &B 16 3 8SBw XD_FILL_J 3; Fill the journal buffer 
Ff 1¢ ; POPQ R6 ; Restore registers 
52 2C a3 D Fl 169 MOVL RPSL_SVAPTE(R3) ,R2 ; Get geéress of input buffer 
1 re 169 BEQL 0$ ; Br ifn 
2f A 4 F 1694 CLRL IRPS$L_SVAPTE(R3) 3; Make cure * SVAPTE is cleared 
9 FA 1695 BSBW ADDRCULIST : Else, add it to the receive List 
FF F 1998 ¢ $: BSBW RCV_START : Initiate the read 
8ED : 169 $: POPL ag 3; Restore R 
01 50 3 1998 BLBC RO,40$8 ; Branch if error 
5 23 18 4 RSB ; Return to caller 
16C6 »=631 «20507 1593 40$: BRW 10_DONE ; Post the 1/0 request in error 
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; -SBTTL SETMODE_FOT, Set mode 1/0 operation FDT routine 
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+ 
SETMODE_FDT = Set mode 1/0 operation FDT routine 
Functional description: 


This routine is used to set the configuration of the DMP11 hardware 
device. Subfunction modifier bits are used to specify the typs of 
action to be taken. The two characteristics buffers (P1 and P2) 
are used to describe specific characteristics. 


The Q10 parameters for SETMODE are: 


Pl = Optional address of quadword or longword buffer 
Ps = Optional address of buffer descriptor for extended characteristics 
P3 = Number of receive buffers to pre-allocate. Required on 

controller startup. 


The subfunction modifiers are as follows: 


oO STARTUP - establish a tributary - this modifier is used to 
establish a tributary so that communication between 
a unit and the DMP11 device can occur. Polling 
parameters may also be modified with this command 
bags at startup time or at any subsequent point 
n 


is used to stop the polling and delete the tributary 
by the user of that tributary. Only the assigned 
tributary may be shutdown and this command does not 
require privilege. 


o ATTNAST = request an attention AST - this modifier is used 
to set up an AST to be delivered when a change of 
status occurs on this tributary. 


© SHUTDOWN - shutdown the asetoree tributary - this modifier 
i 


o CTRL - perform the request on the Controller not the 


tributary. 

o SET_MODEM - set Line unit's mode register. 
Inputs: 

R3 = IRP address 

R4 = PCB address 

R5 = UCB address 

R6 = CCB address 

R7 = Function code 

AP = address of first Q10 parameter 
Outputs: 


| 
! 
! 
0 
| 
| 
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RO = status of setmode request 


. 
x R = VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 728: AX/VMS Macro v04-00 
Yee O05 SETMODE_FDT, Set mode 1/0 operation FOT ae $6:99:60 DRIVER. SRC tix XDDRIVER.MAR; 1 _ 39, 
A 1760; 
178) : R3-R5 are preserved. 
A 158 : R7-R9 = destroyed 
A 1764; 
A 1092 i-- 
5 A 1589 SETMODE_FDT : 3 de FDT i 
_FOT: etmode rocess 
40 a3 7C ; 5 1789 CLRQ IRP$Q_STATION(R3) ; Clean up station field 
OD 1771 PUSHQ R6 ; Save registers 
50 03 90 0510 1778 ROVE #JNL 10.R0 i Set journal tyse © G10 
F8 13 177 BSBW xD =fTUt Fill the journal buffer 
0650 €9 218 1774 BLBC R : : Br if error 
FB AG «6C)0CODO C0519 =—1775 MOVL PItaP). ~8(R6) Store the P1 parameter 
238 1778 1$ POPQ : Restore registers 
57 20 A3 3¢€ 0520 177 MOVZWL porey FUNC(R3),R7 ; Get entire function code 
06 57 OA €0 0526 1780 BBS VaSET AMO MODEM,R7, 3$ ; Br if SET_MODEM request 
03 57 (09 é 05 8 1781 BBC tlosv7c 7,5$ Br if not-controller request 
020A 1 8 : i ¢ 3$: BRW LE PAOBE vet ef : Process controller request 
iF F 7 4: ; Perform setmode request on a tributary 
3657 08 €1 05 é 178 gs: BBC #10$V_ATTNAST,R7, 30$ ; Branch if not attention AST 
05 1788 : 
B2 17e8 3 User is requesting an attention AST. 
1988 30 033 1791 ° BSBW = XLATE : Get CDB address 
E9 0536 1736 BLBC RO,49$ ; Br if error - abort 1/0 
57 04 A9 OE 0539 179 MOVAL CDB_L_AST(R9),R7 ; Get addr of AST List 
00000000 * GF 16 5 4 1794 JSB G CORSSETATTNAST Set up attention AST 
11 0C Ad = 00 gt 543 1795 BBC TS_V_ESTAB,CDB_W_STS(R9), 208° ; Br if tributary not estab 
51 20 A9 SE 0548 1796 MOVAB CB “a _RCO_MSG‘69) ,R1~ ; Check for empty rcv List 
1 51 D1 054C 1797 CMPL R1, RT) ; Empty? 
98 13 OS4F 1798 BEQL Fog : Yes, no need to inform user 
5 43 0551 1799 10S: PUSHL R3 ; Else. save IRP address 
1IDIA 0 B2ee 1800 BSBW POKE. USER : Inform the user 
53 BEDO 0556 1801 POPL 8 : Restore IRP address 
51 69 0? 559 1 §¢ 20$: MOVL COB_L_DEVDEPEND(R9) ,R1 Get CDB dependent status 
51 44 A5 g 55 138 BIS UCBSL-DEVDEPEND(R5) ,R1 : OR in UCB status 
50 ~=01 3 560 1804 $a: MOVZWL S“#SS$_NORMAL ,RO ; Set success 
00000000'GF 7 oe a6 5$: JMP CAEXESFINISHION : Complete the 1/0 
569 180 
2FE 30 0569 1 ‘4 30$: BSBW GFT cu CHAR_BUFS 3; Get Pl and P2 characteristics 
30 50 E9 Q56C 1809 49S: BLBC : Br if error - abort 1/0 
2f57 97 «EN 36F 19 BBC Posy SHUTDOWN,R7, 50 ¢ Branch if not trie shutdown 
3 1 : Shutdown tributary modifier specified. 
573 1814 ; Validate P2 buffer. Try to find CDB, if found then update CDB and stop 
27 ' 1) 3 tributary. 
1978 30 57 1 i$ , BSBW mate ; Get CDB address 
5 D4 0576 1818 CLRL R ; Assume no CDB present 
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11/DMV11 Device ieteer ~SEP-1984 AX/VMS Macro v04-00 Page 41 
et mode 1/0 sige rot -SEP-1984 4 83: $$: 5 DRIVER. SRCIXDDRIVER.MAR; 1 . 
BLBC $ HH if not 5 resent 
MOVZWL CDé ; ¥1S(RO) R2 ; Else, ger ss ’ 
333: BSBW ATE_P2_ cbB ; Validate the 2° buffer 
BLBC $ ; Br if error 
MOVL nO, L_DEVDEPEND(RS) ,R1 : Assume no COB 
TSTL 3 _ CDB found? 
BEQL : - leave now 
BSBW CHG_COB : ange CoB gorensters 
BBC #CD-TS_V_ESTAB W_STS(R9) ,20 hg ~ f nothing to delete 
MOVB $*#%D_FC“V_STO 1peT APSA. XDFUNC(R )” Set internal function code 
BRW QuEPKT ; busue packet to driver 
37$: POPL R3 3; Restore R3 
408: BRw ABORTIO ; Abort the 1/0 request 
Startup tributary modifier specified or no modifier 
bos: sew LAT é ; Get CDB address 
BLBC RO,55$ ; Br if COB address not found 
BRW ; Else, change existing trib 


> We are creating a new tributary. 
§5$:  MOVZWL ¥#SS$ DEVINACT RO : Assume ctrl not active 
BBC #uce$v_x te, : Br if ctrl not inited 
UCBSU. BtVSTSCR Di 40$ 3 


: Allow only 1 trib for point to point or tributary mode 


BBC eee XD_PTP,UCB$W_DEVSTS(R5), 60$ ; Br if not point to point 
5888 BBS #XM$v_CHR-CTRL,- ; Br if control station 
388s UCBSL ~DEVBEPEND CR R5),60$ 3 
CMPL RPSL_PID(R3) ,UCBSL_XD_PID(R5) : Make sure same PID 
BNEQ 0$ ; Br if not - soeeky devil 
TSTB UCBSB_XD_TRB_CNT (RS) ; Any tribs yet? 
BNEQ 0$ : Br if trib already exists 


: Find an empty tributary slot in UCB 
60$: BSBW FIND SLOT 


ose Find an empty slot 
70$: MOVZWL #SS$_DEVICEFULL,RO 
BRB 40$ 


Br if found one 
Return error 
3; Abort 1/0 


: Found empty slot in UCB translation vector, validate P2 and allocate a CDB 
80s: CLRL R ; No status flags yet 
: No CDB address - Yet 


6 CLR R 
6 BSBu VALIDATE_P2_CDB Validate the P2 buffer 
6 BLBC RO,83$ :; Br if error 


0 ; Make sure erie address given if stertup request. 
7 We make this requirement, because this is a new CDB and the tributary 
7 : address is required for all modes except Point to Point. 


“* BBC #10$V_STARTUP,R7,85$ Br if not startup request 
75 BBS #UCBS0_XD_PTP.UCBSW_DEVSTS(RS), a$s: Br if point-to-point 
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ASSUME CDB~B-POL EQ CDB_6_TYPE+1 


: We will init the Polling state to unlatched. It is assumed that 
3; @ zero polling state means unlatched! 


51 04674 8F ; E8 MOVZWL #NMASC PCCI_TRI,R1 ; Get trib address 
1c 3 E BSBW = UNPACK°2_ BOF ; From P2 buffer | 
9° F BLBS : Br if given - Okay 
50 0114 8F C Ob MOVZWL a3 “INSFARG,RO ; Insufficient arguments | 

FF68 4 83$: BRW 25$ 3; Finish the 1/0 request 

51 0060 4 3¢ F 85$ MOVZWL S08 _C_LENGTN. AI ; Get size of CDB 
3 «DD PUSHL R ; Save IRP address 
esses | 1 F 18 JSB G*EXESBUF QUOPRC ; Check caller's quota 
1.50 ; BLBC :; Br if error 
eee 1 F 3 " JSB GE XESALONONPAGED : Allocate the COB 
g E 1 BLBC RO,37$ ; Br if error 
8EDO 14 POPL ® ; Restore IRP address 
50 0080 C6 0D 617 MOVL PCBSL_JIB(R4) ,RO ; Get JIB address 

30 AO 00000060 8F C 61C SUBL #CDB_C_LENGTH,JIBSL_BYTCNT(RO) ; Charge user for COB 
4 ad 00060 8F C 2 SUBL #COB_C"LENGTH,JIBSL_BYTLM(RO) ; ..and Limit | 
: ; Zero the COB 
59 52 DO 062C j MOVL R2,R9 ; Copy CDB address 
F 18 PUSHR #*M<R3,R4,R5> ; Save registers 
62 0060 8F 00 62 99 C 1 } MOVCS #0,(R25,#0,#CDB_C_LENGTH,(R2) : Zero the CDB | 
BA 9 POPR #°M<R5,R4,R5> ; Restore registers 
48 A9 oc AS D0 © IRPSL_PID(R3) ,CDB_L_PID(R9) : Save starter's PID | 
4C AD «2B A 4 9 MOVW IRPSW-CHAN(R3S CDB_O CHAN(R9)  ; Save associated channel 

4 ASSUME CDB_B-TYPE €Q (dB 0 SIZE+2 | 
| 
| 


Dunn 


4 
asnag | 4 dO b66 MOVL #<<DYNSC_BUF 10816>!CDB_C_LENGTH>,- ; Set type and size 


ek a ws = a a a 1 a as 8 tt 


RO ODNOA UNE UN OOD NA UE WN  O OD NAME WIN 3 SO OD NAME WIN OC OONAUE WO OOnNO 
s. 


r+ CDOB_W_SIZE(R9) : 
G60 : Initialize CDB queues 
50 05 9A 0640 : MOVZBL S“#CDB_C_QUEVES,RO ; Set number of queue heads 
52. 10 a9 9E 0650 19 MOVAB COB. GUEUES(R9S .R2 : Set address of first head 
6 9E 54 1914 90$: MOVAB (R2),TR2)+ : Init forward Link pointer 
82 FCA 9 57 19 MOVAB =-4(R2),(R2)+ : Init backward Link pointer 
F6 5 F $28 4 SOBGTR RO,90$ ; Loop if more queues 
3E 3 ; Initialize CDB default parameters 
50 12 C i: 920 * MOVZWL #DEF_TRIB A: fa ; Set size of parameters in bytes 
51 FAC! CF E 9 MOVAB DEF_TRIB_PARAM,R ; Set address of defaults 
52 46 A9 9 66 19 MOVAB CDB~B_SETPRM(R9) ,R2 ; Set address of parameters | 
82 8 9 A 19235 100$:  MOVB R13+7(R2)+ ; Set default 
FA 50 OF 0 4 SOBGTR RO,100$ ; Loop for all parameters 
5C Ag 0284 cS 8 fi 9 MOVW UCBSW_XD_RTT(RS),CDB_W SEL_TIMER(R9) ; Set default retransmit timer | 
OF AD 0135 C5 76 19 MOVB UCBSB"XD~XMT_TRB(RS)-CDB_B-XMT_CNT(R9) ; Init max xmits allowed 
3 44 AS 3 7¢ «#419 BBS #XMSV"CHR_CTRL,UCBSL_DEVBEPENDTRS).110$ ; Br if control mode 
FAQ 76 BF Bi 9 MOVE = #@INF_ RMT, COB BX T_CAT(R9) ; Else, allow infinite xmits | 
58 AS) 9A 6 1930 1108: MOVZBL IRPSB_INDEX(R37,R8 : Get vector index | 
tH 4 SETIPL UCBSB_FIPL(RS) ; Syne access to UCB 
0218 (548 59 00 — 19 VL R9,UCBSL_XD_CDB_VEC (RS) CR8) ; Store COB address in UCB 
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44 A3 0218 (548 ODE a 19 ? MOVAL InPsc=tbBRST ; Store egérese of CDB address | 
e oe If 
OC A dO 98 13 5 MOVL IRPS$L_PID(R3),- ; Save PID in UCB 
0158 (54 1 § UCBSL_XD_PID_VEC(R5)CR8) : 
AS B80 19 MOVW IRPSW-CHAN(R3) ,- ; Save channel index in UCB 
0108 ¢54 19 8 UCBSW_XD_CHAN_VEC(R5) CRB) 3 
134 € 96 . 132 INCB UCBSB_XD-TRB_CNT(RS) 3 Tally one more tributary 
6AD 19) : [cfbutary now exists change its characteristics and set them 
. 1306 ; if trib is established. 
1989 30 1944 1208: BSBW  CHG_CDB ; ; Change CDB parameters 
10 57 6 3 1945 BS #10$V_STARTUP,F) ,125$ ; Br if startup request 
0 1 6B4 1308 MOVZWL #SS$_RORMAL i Else, set successful return 
1 69 D0 0687 194 MOVL  COB_C_DEVDEPEND(R9) ,R1 : Set [0881 return 
51 44 A C 6BA 13e8 BISL UCBSL-DEVDEPEND(R5) ,R1 ; .-plus UCB status 
00000000'GF 1 rez Hs 4 123$:  JMP G*EXESFINISHIO ; Finish the 1/0 request 
ty W323 : Startup tributary requested 
21 A3 00 90 06C4 1988 125$: move S“#XD_FC_V_INITT, IRPSB_XDFUNC(R3) ; Set internal function code | 
02A0 (5 48 ag pt 6¢8 1954 cHPL CoB L“PIB(R9) ,UCBSL_XD-PID(RS) ; Same PID as starter? | 
; Br no 
09 6 0 €1 850 1338 BBC Aaa A es Mt DEVDEPEND(R9S ,128$ ; Br if not MOP mode 
04 446 AS 6 3 6D4 195 BBC #XM$V_CHR_CTRL,UC C_DEVDEPEND (RSS 128$ ; Br if not control station | 
4E A 1 90 0609 1958 1278: MOVB ,CDB_B_ARB(R9) ; Else, set MRB to one | 
4E AD sOFF ar 4 6p 1959 128$: cma NF RCV CDB_B_MRB(R9) : Is mie at ‘unlimited’? 
3; Br es 
bees 1961 SETBIT #CD_TS_V_BUFQUO,CDB_W_STS(R9) ; Else nat user buffer manager 
12 68 AS 602 gI 6€9 196¢ 129$: BBC #UCBSV~XB_PTP,UCBSW-DEVSTS(R5),130$ ; Br if not point-point 
OE Ad 4 0 ore 196 MOVB -CDB~B_TRB_ADDR(R9) ; Else set trib address | 
40 a3 1 90 F 1964 ove #1, 1RPSQ-STATION(RS) 3; Again in IRP 
50 41 A3 9A 06F6 1965 MOVZBL IRP$B_INDEX(R3) ,RO : Get vector index 
0138 ¢540_ = 01 3 we 1298 Ove UCBE3_XD_TRIB_VEC(RS)CROJ ; And again in UCB trib vector 
OE Ad 9 09 1967 130$:  TSTB COB_B_TRB_ABDR(R9) ; Trib address given? | 
H. 12 0703 1968 BNEQ 17 ; Br if yes - okay 
50 0114 BF Hs 705 3 MOVZWL #SS$_INSFARG,RO :; Trib address missing 
51 0474 8F C QO70A 1970 MOVZWL #NMASC_PCCI_TRI,R1 ; Set bad parameter code | 
AD 11 we 130) BRB 1238 3; Finish the 1/0 
at 1378 : Tributary already exists .. validate P2 | 
52 6 0 0711 1975 150$: MOVL CDB_L_DEVDEPEND(R9) ,R2 ; Get trib status | 
19 714 1376 BSBW VALTDATE_P2_CDB ; Validate P2 
AG 5 E 717 «(197 BLBC R ; Br if error 
71A 1978 SETIPL UCBSB_FIPL(RS) : Sync access to CDB 
04 0C Ad «6(00~—séEO 4 44 BBS #CD_TS_V_ESTAB,CDB_W_STS(R9),160$ ; Br if trib established 
4 13 1 : Tributary not active .. change CDB parameters and do startup if necessary 
69 94 07 19 5 » CLRB co8 L_DEVDEPEND(R9) ; Clear old characteristics 
6 11 ’ 1? : BRB 208 ; Change CDB and start if needed 
4 13 § : Tributary already active .. set CDB and give request to device 
3C AS 94 «=O727 =(19 3 160$:  CLRB IRPSL_MEDIA+4(R3) ; Clear trib characteristics 
190¢ 30 O72A 19 BSBW  CHG_CBB ; Change the CDB params 


i ee 


sets" sth 
sie 8 8 
0385 
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FC V.CHGT IRPSB_XDFUNC(R3) ; Set new CDB params | 


S 
F 
1 MOVB $*#XD 
1331 MOVB #255 TRPSL-MEDIACRS) i; Set 8 parameters 
6 1992 1708: BRW QUEPKT ; Queue packet to driver 
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-SBTTL SETMODE_CTRL, Perform setmode FDT operation on controller 


voorO00™ SeTMOD 


S333 
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++ 
SETMODE_CTRL = Perform setmode FDT operation on controller 


ee ee 


Functional description: 

This routine performs the SETMODE FDT setup for the controller. 
Inputs: 

PCB address 


UCB address 
IRP function word 


COOOBOOOOCOCO XO 


DwDww»D 
NUE 
nun 


Outputs: 
RO = status of setmode request 
R3-R5 are preserved. 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge 


SETMODE _CTRL: ; Perform setmode on controller 
BBC #10$V_SET_MODEM,R7,10$ ; Br if not setmodem request 


: Set modem modifier specified 

: PI(AP) = address of modem longword bit settings 
MOVZWL #SS$_BADPARAM,RO 
MOVL P1( AP) ,R2 


1¢ 57 OA €1 


} ; Assume P1 buffer not given 
; Get address of P1 buffer 
; Br if none specified 


OOOCCCOOCOCOCOOCGCO OOOO OCOSCOOCCOCOOOSOOOOOOOOO ONO 


3¢ 
3 
1 BEQL 
3¢ MOVZWL #SS$_ACCVIO,RO ; Assume access violation 
IFNORD #4,( ; Br if access violation 
38 a3 62 0 MOVL (R2), IRPSL_MEDIA(R3) : Store modem bits in IRP 
2103 0D 90 MOVB $*#X0_FC_VIWTMODEM, IRPSB_XDFUNC(R3) ; Set function request 
0365 31 BRW QUEPKT ; Queue packet to driver 
010 30 108: BSBW GET_CHAR_BUFS ; Get Pl and P2 characteristics 
2a 5 9 BLBC : Br if error = Abort I/ 
52 6B A C MOVZWL UCB$W_DEVSTS(RS) .R2 : Get device status 
192F 2 BSBW uc : Validate the P2 buffer 


VALIDATE P2_ 8 


1A 50 BLBC nO Br if error 
1f 57 O07 «€1 BBC #10$V_SHUTDOWN,R7,25$ ; Br if not shutdown request 
: Shutdown modifier specified 
BSB ; Update the UCB 


MEA OC OONDA NE WIN 9 OD NAMEN 9 ODNOA NEW" OOD FUE WO OOO 


CHG_UCB 
BBC PUCBSV x 


MOVB #XD_FC_V ; Set function request 
BRw QUEPKT ; Queue packet to driver 


50 15$: MOVL UCBS$L_DEVDEPEND(RS) .R1 ; Get 10SB1 return 


; Br if controller not up 
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01 9A 07 1 MOVZBL $*#SS$_NORMAL ,RO ; Set success 
0000 » Bm |S 3 178: JMP G*EXESF INISHIO 3; Complete the 1/0 request 
FB49)—s 331 , 4 208: BRw ABORTIO ; Abort the I/0 request 
78C¢ § ; Make sure this request is from the starter PID unless device not inited 
4 : ; ; or device is running in control station mode. 
00 €1 078C 2059 25$: BBC #UCBSV_XD_INITED,- : Br if device not inited 
12 68 a3 7 60 Ucasu BevStsiRs) .30S 3 
EO 07 61 BBS XMSV_CHR_CTRL,= ; Br if control station 
op 44 A 29 6¢ UCBSL ~DEVBEPEND (RS) , 308 ; 
30 850 8F 3C 0796 6 MOVZWL #SS$_BEVICEFULL : Assume someone has device 
0200 cS. OC AS) 10798 «2064 CMPL RPSC_PID(R3) ,UCBSL_XD_PID(RS) ; Is this the owner PID? | 
e612 uA i BNEQ $ ; Br if no - wrong user 
03 57 06 9 Oras 067 30$: BBS 1 al a aaabnathamaahic ; Br if startup request 
0078 1 toed +43 BRW 50$ : Else, no modifier 
O7AA 096 ; Controller startup requested 
O7AA 2071 ; 
atAA O76 3 P3(AP) = number of receive buffers desired 
51 08 AC HS SrA 074 $18: MOVZWL P3(AP),R1 : Get number of receive buffers 
18 13 O7AE 2075 BEQL 35$ ; Br if no = ignore it 
00 €1 078 O76 BBC #UCBSV_XD_INITED,=- ; Br if device not inited 
11 AS gfe 07 ucBSw_BevSTS(r5) ,33$ 3 
O2aB CS.) = 551—s«91s«07BS «2078 CMPB sR, UCB$B_XD_BFN(R5) > Are the buffer numbers the same? 
OA 13 O7BA 2079 BEQL 33 : Br if yes 
51 0451 8F HS 07B8C 080 32$: MOVZWL #NMASC_PCLI_BFN,R1 :; Set 10SB81 return 
14 3¢ O7Ci 2081 MOVZWL #$98_BADPARAM, RO : Set error return | 
BD 11 O7Cé4 oes BRB 17$ ; Finish the 1/0 request 
O2aB cS) «6551s 90 are 3 33$: MOVB R1,UCBSB_XD_BFN(RS) 3; Store new receive buffer number | 
Ore 5 H 3; Set new P1, P2 parameters 
00 =«6—€0 gre 087 $58: BBS #UCBSV_XD miter; ; Br if device already inited 
74 68 AS 7CD «2088 UCBSW_BEVSTS(R5) ,70$ 3 
03 38 As) «ED «(0700 «2089 BLBC  _IRPSL“MEDIA(R3), 378 : Br if no P1 
44 AS 4 O7D4 2090 CLRB UCBSL~DEVDEPEND (RS) ; Clear old characteristics 
796 30 0707 2091 37S: BSBW CHG_UCB ; Change the UCB characteristics 
51. O2AB C 9A O7DA O36 MOVZBL _XD_BFN(RS) ,R1 ; Get number of receive buffers 
52 3A AS 3C O7DF 209 MOVZWL IRPSL-MEDIA+2(R35 ,R2 : Get message size from P1 
04 : A 8 res 094 LBS _—sIRPSL“MEDIACR3) abs : Br if Pl buffer valid 
52 42 A C O7E 95 MOVZ2WL UCBSW~DEVBUFSIZ(R5) ,R2 > Else, get buffer size from UCB 
50 «(14 C O7EB 84 408: MOVZWL #SS$_BADPARAM,RO ; Assume bad parameter 
51 28 C4 vet 9 MULL R2,RT : Compute total needed for buffers 
¢ 13. O7F 098 BEQL 30 : Br if zero - error 
57 1 3¢C O7F3 2099 MOVZWL R1,R7 ; Copy quota 
ofa D1 ore 100 CMPL R1,R7 ; Overflow? 
f1 12 O7F9 2101 BNEG 326 : Br if error 
3 DD O7FB 21 ¢ PUSHL R ; Save R 
00000000'GF 1 cre 1 JSB G“*EXESBUF QUOPRC ; Check caller's quota 
3 BED 8 104 POPL R ; Restore 
B83 9 E 3 105 BLBC RO,328 : Br if error 
42 a3 4 0 1 $ MOVW R7, IRPSW_QUOTA(R3) ; Save quota in packet 
50 008004 »D 0D 21 MOVL  PCBSL_JIB(R4),RO : Get JIB address 
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198 SUBL R7, JIBSL_BYTCNT (RO) 3 Chere, yser for rec. bufs 

1 SUBL R7 J18S) BYILACRO) ; «ean 

110 MOV S24x0 Fe V_INITC, IRPSB_XDFUNC(R3) ; Set ioction request in IRP 

111 MOVE S*#XD-FC_V~INITC, IRPSL_MEDIA+1(R3) ; ..Twice for fork process 

11 BRw QUEPKT 3 Queue request to driver 

114 : No modifier specified - change controller parameters 

116 Sos: BBS #UCBSV_XD_INITED,- : Br if already inited 

11 UCBSW_ pever sis ),70$ : 

118 BLBC TRP $.- R3),53$ : Br if no Pl buffer 

11 CLRB ucest p PEUBEREND ERS) ; Clear old UCB characteristics 

120 53$: BSBW be ; Change UCB parameters 

121 MOVZWL S*asss MAL ,RO : aise set success 

1 é MOVL tSDEVDEPENDRS), R1 : Set [0S81 return 

; ? 55$: JmpP stata attt: SHIO : Finish the 70 request 

: 5 60$: BRw ABORTIO ; Abort the 1/0 request 

; ; ; Device already inited - set new acer and give them to device 

129 70$:  BLBC  IRPSL_MEDIA(R3),8 if no Pl buffer 

130 CMPB RPSL “HEDIASAIRSS jcBse _DEVDEPEND (RS) ; Are characteristics okay? 

131 BEQL 0 - let it go 

1 ¢ MOVZWL #SS$_ pRSPaRAR, RO : Return error 

1 MNEGL 5$*#1>R1 : pe ihe parameter 

; : BRE 55$ $ eae ete the 1/0 

1 $ 80$: BSBW CHG_UCB ; Change UCB parameters 

1 MOVB 97ND _FC_V_CHGC. IRPSB_ XDFUNC(R3) ; Set function request 

138 MOvVB S*#XD-FC"V-CHGC, IRP$L_MEDIA+1( (R3) ..Twice for fork process 

139 MOVB e<130>, TRPSL _MEDIACR3) bet only four parameters 

140 BRW QUEPK : Queue packet to driver 
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-SBTTL GET_CHAR_BUFS, Get P1 and P2 characteristics buffers 


+ 
GET_CHAR_BUFS = Get P1 and P2 characteristics buffers 
Functional description: 


This routine saves the Pl and P2 buffers for later use by the driver. 
The Pl buffer is saved in the IRP (IRPSL_MEDIA) as a quadword value. 
The P2 buffer is saved by pi locating the aporene 100s amount of aqnere 
non=paged pool. The user's quota is checked before the allocation is made. 
And the non-paged pool buffer is chocgee egerost the user's quota. The P2 


from 


s¢ 

é 3; system buffer address is passed in L_SVAPTE of the IRP. 

86A 3 
086A 3 Inputs: 

086A 3 

086A : R3 = IRP address 

086A $ R4 = PCB address 

086A 3 RS = UCB address 

086A 3 

086A 3; Outputs: 

086A 3 

086A ; RO = status of buffers 

086A 3 

086A ; R3-R5 are preserved. 

086A 3 

086A -- 
Been GET_CHAR_BUFS: : Get characteristics buffers 
Q86A 3; Check access to Pl buffer and save Pl characteristics 
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86A 3 
38 AS O7C SBCA CLROQ IRPSL_MEDIA(R3) ; Reset Pl chars 
52. 6C 09 086D MOVL P1(APY,R2 ; Get address of Pl char buf 
11. «13 «(087 BEQL ; Branch if no P1 buffer 
50 Oc 3C 087 MOVZWL #SS$_ACCVIO,RO 3; Assume access violation 
087 IFNORD #8, (R2),20 : Check access 
38 AS. 620«7DsCO0878 MOV =: (R2) , IRPSL_MEDIA(R3) ; Save Pl characteristics 
38 a3 0190 O87 1 MOVE #1, IRPSL_MEDIA(R3) : Indicate valid P1 buffer 
88 § 3; Check access to P2 buffer and check process's buffer quota 
51 O4A 09 es 5 jos: MOVL P2(AP),R1 : Get address P2 char buf desc 
: 1 § BEQL 40$ : Br if no P2 buffer 
DD 0889 PUSHL R 3; Save 
00000000 ' GF 18 8B 8 JSB BEER DPROSER_DSe 3; Check access to buffer 
OE 4 4 91 9 BLBC RO,15$ : Br if error 
51 1 C 94 0 MOVZWL R1,R1 ; Get buffer size as a word 
52 OD 97 91 PUSHL R2 : Save R2 
00000000 ' GF 8 99 3 JSB G“*EXESBUF QUOPRC : Check for buffered quota 
; ee oF S POPL A ; Restore R 
ED rn: 94 15$: POPL R ; Restore R 
01 50 3 A 95 BLBS RO, 30$ ; Branch if quota ok 
A 36 208: RSB 3; Return 
A o 
Ag 98 ; 
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GET_CHAR_BUFS, 


Get Pl and P2 characteri 
; Quota OKAY, allocate buffer and copy info. 


Ri: 5 ROS8 t paren 


ges gee he. buffer 


ri 
Get P2 buffer address 
Save pacred registers 
Save P2 char buffer 
Restore registers 

Set success 
Return 
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-SBTTL SENSEMODE_FDT, Sense Mode 1/0 operation FDT routine 


| 
voe-000™ SENSER 
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~"e? 
23 
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DPD2R_DPEQ_QPR_QED AAAs BB BB EE AAAI AAAI AIP 9 2 
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+4 
; SENSEMODE_FDT = Sense Mode FDT routine 
> Functional Description: 
This routine returns information to the caller about the configuration 
and status of the DMP11 device. Depending on the function modifier, 
either the device characteristics, error counters or modem register 
contents are returned. 
The Q10 parameters for SENSEMODE are: 

Pl = optional address of quadword or longword buffer 

P2 = optional address of buffer descriptor for extended characteristics 
Inputs: 

R3 = IRP address 


R4 = PCB address 
R5 = UCB address 
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8 
8 
8 
8 
8 
8 
8 2 
8 R6 = CCB address 
8 R7 = Function code 
: AP = Address of first function-dependent Q10 parameter 
; Outputs: 
; RO = status return of sensemode request 
: R3-R5 are preserved. 
: -_—- 
8 SENSEMODE _FDT: : Sensemode FDT 1/0 processing 
40 a3 7C : cCra IRP$Q_STATION(R3) ; Clear station address field 
8 PUSHQ R6 : Save registers 
50 03 90 06 MOVB #JNL_Q10,R0 : Set journal type = Q10 
1c01 30 08 BSBW = XD_LF TLL_JNX ; Fill the journal buffer 
04 50 €9 08 BLBC e :; Br if error 
FB AG 66C~— ODO MOVL P1(AP) ,-8(R6) ; Store the Pl parameter 
1$ POPQ R6 3; Restore registers 
57 20 a3 80 4 MOVW IRPSW_FUNC(R3) ,R7 :; Get entire function code 
03 57 07 1 BBC #10$V_RD_MODEM,R7,3$ ; Br if not read modem request 
015F 1 BRu SENSE_MOBEM ; Else, process read modem 
03 57 09 1 3$ BBC #10$V_CTRL,R7,5$ ; Br if not controller request 
1 BRW SENSERODE_CTRL : Else, process controller req. 
: : Tributary sensemode request 
1603 30 H 67 5$: BsBuXLATE ; Get CDB address 
64 E9 68 BLBC RO, 308 ; Br if error 
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yah SENSEMODE FDOT $ Mode 1/0 ti © SEP 138 88 § 86 DRIVER. SRCIXDDRIVER.MAR; 1 30) 
3157 O08 €1 E $9 BBC #10$V_RD_COUNT ,R7,20$ ; Br if not read counters 
: ; ; Read tributary counters - modifier RD_COUNT 
108 30 F 7 BSBW CHECK _P2 3; Check P2 buffer 
5 14 F 74 MOVZWL #SS$_BADPARAM Rg ; Assume zero Length buffer 
3A A 1 8B a 75 MOV Ri IRPSL_MEDIA+2(R3) ; Save user size of P2 buffer 
1 FC 16 BEQL o$ ; Br if none 
51 ; Fe 7 MOVZWL = S“#TRIB_CNT_BUFSIZ,R1 ; Get size of tributary P2 buf 
02 90 8 BSBW ALL P2BUF ; Allocate a buffer 
4B E 9 7 BLBC R ; Br if error 
31 2C A 9 907 0 MOVL RPSL SVAPTE(R3) ,R1 : Get system P2 buffer addr 
Al DO 09 1 MOVL Re 6 L_BUFFER(A1) > Save user's P2 buffer addr 
38 AS FE BF 30 90F ‘ MOVE #254, 1RPSL_MEDIA(R3) : Get 7 counters 
1A 7 914 MOVB  $*#Xb_FC_V-RDTERR, IRPSB_XDFUNC(R3) ; Assume Read counts 
4 5 A €1 0918 4 BBC #1O$V~CLR_COUNT,R?,10$ : Br if not clear counts 
1 A309 91 5 MOVB S$*#XD-FC_Q_RCTERR, IRPSB_XDFUNC(RS) ; Else, Read and Clear 
0198 «31 ; $ 108: BRW QUEPKT 3; Queue packet to driver 
2— 57 «206—séE;T 03 H+: 20$: BBC #10$V_RD_MEM,R7,40$ ; Br if read tss request 
4 s 3; Read TSS address - modifier RD_MEM 
51 04 AC 9A 0927 35 MOVZBL P2(AP),R1 ; Get TSS address 
1F 51 91 83 B 9 CMPB R1 $*#31 ; Is TSS address too big? 
g2 1A (09 E 94 BGTRU 308 : Br if yes 5 error 
3E A3 1 90 09 95 MOVB R1, IRPSL_MEDIA+6(R3) ; Save TSS address in IRP 
51 04 9A 0934 2296 MOVZBL $*#4,R1 : Check access to P1 buffer 
01C0 $0 0937 97 BSBW CHECK_P1 ; Check P1 buffer 
3198 0 O93A 98 BSBW ALLOC_P2BUF ; Allocate a P2 buffer 
12 50 €9 093D 99 BLBC RO, 308 ; Br if allocation error 
51 CA DO 0940 00 MOVL IRPSL_SVAPTE(R3) ,R1 ; Get system buffer address 
04 Al 38 A3 DO 0944 2301 MOVL TRPSLMEDIA(R3) .P2B_L_BUFFER(RI) : Save user Pl buffer VA 
8A D4 0949 0 CLRL IRPSL_MEDIA(R3) ; Indicate NOT a counter IRP 
21043 0B «90 094 0 MOVB  S*#XD-FC_V_RDTSS,IRPSB_XDFUNC(R3) ; Set function request 
cE 11 Bee oe BRB 10$ 3; Queue packet 
F980) = s«3}1 035 8 30$: BRw ABORTIO ; Abort the 1/0 request 
95 08 ; 
0985 15 ; Read tributary parameters - no modifier 
51 9 Hs 338 11 40s: MOVZWL $*#8,R1 : Size of Pl buffer if present 
01 958 1 BSBW CHECK _BUFS : Check P1 and P2 buffers 
3c Ad 51——s#iBB 958 1 MOVW R1,IRPSL_MEDIA+4(R3) ; Save user P2 buffer length 
Se 1 oH 1% BEQL 60$ ; Br if no P2 buffer present 
51 006C 8F 5 961 1 MOVZWL #TRIB_PRM_BUFSIZ+6,R1 ; Set size of required buffer 
0144 268 1 BSBW ALOE P2B0F : Allocate a P2 buffer 
56 50 €9 096 H BLBC ® 4 : Br if error 
51 C 43 DO 09 f 1 MOVL RPSL SVAPTE(R3) ,R1 3; Get system P2 buffer address 
Al 5 b0 9 0 MOVL  R2,P2B_L_BUFFER(R1) : Set user's Pe buffer address 
51 £752 gf 974 1 MOVAB TRIB PARK Ri 3; Get address of return table 
54 ] 979 ¢ MOVL R9,RE : Get CDB address 
186A 97C BSBW RETURN_P2 ; Return the PZ parameters 
42 a3 01 860 a : MOVW S*#SSS"NORMAL ,IRP$W_CSTATUS(R3) ; Assume success 
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ween ; 
0B 44 A - ° 
Ha : 
0126 ¢ 
A3 A § 45$: 
2A 8 
CA 8 3 
tf 
42 a3 “— gt op 40 
CAS.) 6B 4) 
5 4 
1 435 50$: 
5 42 A 8 te 
A 4 : 
=e te 
6 A2 69 (B 3c6 rh: 
51 69 00 O9CA 50 70$: 
1 66 AS S 9CD 51 
00000000 ' GF 17 09D1 352 
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Return polling substate - only if device is inited. 
; Br if not inited 
; Br if NOT a control station 


; Set TSS address (as read tss) 
; Set function request 


; Else, queue the packet 


No polling substate return 
Assume user has good size perter 
or "eS buffer large enough? 

r 

Return p partial success 

"Set size of return 


Shift size of buffer return 
Set success status 


Retrieve P1 buffer address 
Br if none 
Else, return characteristics 


Get device dependend info 
.- from UCB also 
Complete the 170 request 


re 
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44 : -SBTTL SENSEMODE_CTRL, Perform SENSEMODE FDT processing for controller 
907 poe 
Hd 5 ; SENSEMODE_CTRL = Perform SENSEMODE FDT processing for controller 
B0F 33 3; Functional description: 
907 61 : This routine performs all FDT checking for a controller SENSEMODE request. 
907 6¢ 3; The P2 buffer if present is check ler write access and if okay, as ston 
907 65 ; buffer is allocated for temporarily saving the needed information. The 
44 rt: ; Pl sensemode information is returned through IRPSL_MEDIA and IRPSL_MEDIA+4. 
907 06 3; Inputs: 
3434 67 ; 
907 68 ; R3 = IRP address 
bop) 4 3 R4 = PCB address 
907 0; R5 = UCB address 
Bap) 71; R7 = Function code 
907 72: 
0907 73 ; Outputs: 
0907 74; 
0907 75 3 RO = status return for request 
0907 76; 
0907 77 3 R3-R5 are preserved. 
0907 78 ; 
pooe 79 3-- 
907 80 
0907 4 SENSEMODE CTRL: ; Process controller sensemode FDT 
3157 O08 €1 ape? BEC #10$V_RD_COUNT,R7,20$ ; Br if not read counters 
sb bs ; Read controller counters - modifier RD_COUNT 
OOF 2 0 0908 +) BSBW CHECK_P2 ; Check P2 buffer 
50 14 C O9DE ; MOVZ2WL #SS$_BADPARAM,RO ; Assume zero length buffer 
3A AS 51 BO O09E1 8 MOVW R1, IRPSL_MEDIA+2(R3) : Save user P2 buffer size 
54 13 O9E5 89 BEQL 3 : Br if no P2 buffer 
51 OA C O9E7 90 MOVZWL S“#LINE_CNT_BUFSIZ,R1 ; Get size of controller counts 
ote 0 O9EA 91 BSBW A Loe P2BUF ; Allocate a buffer 
48 O9ED 9 BLBC os 3; Br if error 
51 2C A300 O9F0 9 MOVL IRPSL_SVAPTE(R3),R1 : Get system P2 buffer address 
04 Al 52 DO O9F4 239% MOVL POB_L_BUFFER(R1) : Save user P2 buffer address 
38 AS 660 BF CO90s«éOO9F BB 95 MOVB #<$a5>7IRPSL_MEDIA(R3) : Get 2 counters 
103 08 90 O9FD 239 MOVB #XD_FC_V_RDGERR, IRP$B_XDFUNC(R3) ; Assume only read counts 
5 A 1 “ol 9 BBC #1O$SV~CLR_COUNT,R7,10$ ; Br if not clear count request 
1A3 OA AOS § 2398 MOVB “#XD-FC_O_RCGERR, IRPSB_XDFUNC(R3) ; Else, Read and Clear 
0082 1 mt 44 10$: BRwW QUEPKT ; Queue packet to driver 
26 57 06 «€1 noe ret 208: BBC #10$V_RD_MEM,R7,40$ ; Br if read tss request 
Ag 408 ; Read GSS address - modifier RD_MEM 
51 04 AC 9A OAI 405 MOVZBL P2(AP),R1 ; Get GSS address 
1F 51 91 QAI4 6 $ CMPB R1,$°#31 : Is GSS address too big? 
e2 1A OAI7 246 BGTRU 308 : Br if yes - error 
3E AS 90 OA19 2408 MOVB R1 JROSL _REDIASG(RS) ; Save GSS address in IRP 
51 04 9A OAID 2409 MOVZBL $*#4,R1 : Check access to Pl buffer 
00D7 30 OA20 2410 BSBW CHECK_P1 ; Check P1 buffer 
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: Read controller parameters = no modifier 
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ABORTIO 


Los: MOVZUL $*°#8,R 
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; Bi locate | ° Pe buffer 
Br ife 


“Indic 
iF 


; Get systen “puffer address 
; Set user buffer VA 

ate NOT a counter IRP 

Set function request 


; Abort the I/0 request 


Size of P1 buffer it present 
Check P1 on P2 buffers 
ae Length 


Set size of required buffer 
geese © a P2 buf 


buffer address 
buffer address 
Get address of return table 


e855 
Return the P2 buffer data 
Assume success 
; Assume user has good size pytter 
3 fs veer 5 buffer large enough? 


+ a BUF FEROVF LRP By. CSTATUS(R3) 
IRPst MEDIA+4 ( 

RO IRPSW BCNT ache) 
TRPS$u_CSTATUS(R3) RO 
RPSL _ MEDIA(R3) ,R2 
UCB$B -PEVCLASS (RS) (R2) 


UCBSL~DEVDE 
Me PKESEINISHI io. 


; Return partial success 
Set size of return 


Shift return buffer size 
Set return status 


pete tove Pl buffer address 


Else, return characteristics 
Get device dependend inf 
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“ : § -SBTTL SENSE_MODEM, Perform SENSEMODE READ_MODEM FDT processing | 
AA 454 544 
~ ? 5 ; SENSE_MODEM - Perform SENSEMODE READ_MODEM FDOT processing 
oe 2 4 ; Functional description: 
AA 4 § ; This routine performs all FDT checking for a SENSEMODE read modem request. 
AA 460 ; The Pl buffer is checked for write access and the request is queued to the 
AA 461 ; driver. When Feng tete the P1 sensemode information is returned in IRPSL_MEDIA 
AA rh 3 and IRPSL_MEDIA+4, 
AA rh : 
AA 464 ; Inputs: 
AA 465 ; 
AA $96 3 R3 = IRP address 
AA 467 ; R4 = PCB address 
AA 468 ; RS = UCB address 
QAAO $6? 3 R7 = Function code 
OAA 470 ; 
QAA 471 ; Outputs: 
OAA of6 : 
QAA 473; RO = status return for request 
OAA 474; 
AA 475 ; R3-R5 are preserved. 
AA 276 : 
OAA 477 ;-- 
OAA 47 
QAA 479 SENSE_MODEM: ; Process read modem request 
3C OAA 480 MOVZWL $*#4,R1 : Size of Pl buffer 
10 OAA 481 SBB CHECK_P1 : Check access to P1 
QAA 48 : (no return on no access) 
30 OAAS 248 BSBW ALOE P2BUF ; Allocate a P2 buffer 
8 OAAB 2484 BLBS RO,108 : Br if success 
1 OME ; 5 BRW ABORTIO : Else, abort the I/0 request 
DO OAA 487 10S: MOVL IRPS$L_SVAPTE(R3) ,R1 ; Get system buffer address 
DO OAB $38 MOVL IRPSL_MEDIA(R3) ,P2B_L_BUFFER(R1) ; Set user buffer VA 
D4 OAB 489 CLRL IRPSL_MEDIA(R3) ;_Indicate NOT a counter IRP 
90 OABA 2490 MOVE  § S*#XD-FC_V_RDMODEM, IRP$B_XDFUNC(R3) ; Set function request 
ABE 2491 BRB QUEPKT 3; Give request to driver 
ABE +36 
ABE 2493 ; 
ABE 2494 ; 1/0 Request packet to driver 
ABE 2495: 
ABE 2496 QUEPKT: ; Queue packet to driver 
AB 49 SETIPL UCBSB_FIPL(RS) ; Raise IPL to fork IPL 
1 AC 498 JSB G*1OCSINITIATE ; Initiate 1/0 request 
17 OAC 499 JMP G*EXESQIORE TURN : Lower IPL, and RET 
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y, -SBTTL CHECK_BUFS, Check P1 and P2 buffers for write access 
AC gee 
Ae 2 i ; CHECK _BUFS = Check P1 and P2 buffers for write access 
ac $ : Functional description: 
Ate gi : This routines checks tne P1 and P2 buffers for write access if supplied. 
ate 19 ; Inputs: 
ACE 1g ; R1 = Size of Pl buffer needed for write access 
ACE 1 : R3 = IRP address 
ACE 2514; R4 = PCB address 
ACE 2515 ; RS = UCB address 
ACE 218 3 R7 = Function code 
Ate 3} 3 R9 = COB address 
wee 319 : Outputs: 
OACE 521 ; Ri = Length of P2 buffer (zero if no P2 buffer) 
ace ; ; : R2 = Address of P2 buffer in user's process space | 
OACE ; : : RO-R2 are destroyed. 
Te 3 g; : No RETURN on NO ACCESS | 
a : gi : Implicit Outputs: 
OACE 3 0; ; IRP$V_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. 
he 
ACE 534 CHECK_BUFS: 
10 nee 535 CHECK_P1 ; Check P1 buffer 
ADO 25 6 CHECK_P2 
4 at. 5 CLRL R1 3 Assume no P2 buffer desc 
D AD 238 MOVL P2(AP),R2 3; Get gedress of P2 desc 
1 AD 5 BEQL ; Br if no P2 
AD 540 IFNORD #8,(R2),ACCESS ; Br if a access 
3¢ OADE 2541 MOVZWL (R2),R1 : Get Length of buffe 
CA OAE 348 BICL  #i,Ri : Must ,be multiple of 2 bytes 
13 OAE4 254 BEQL =: 108 : Br if zero 
» AE6 eee MOVL DSCSA_POI swrencha)., RO ; Get bul fer addre 
AEA 45 JSB G*EXESREADCHK ; Check write access, te buffer 
AF 228 ; (no return no ac 
AF 54 3; Also sets IRPS$V_ ti in IRP 
0 AF 548 MOVL RO,R2 3; Copy buffer address 
nh 4 10$: RSB ; Return to caller 
C OAF4 2! ACCESS: MOVZWL #SS$_ACCVIO,RO ; Return access violation 
1 OAF7 52 BRw ABORTIO ; Abort the 1/0 request 
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-SBTTL CHECK_P1, Check P1 buffer address for write access 


+ 
CHECK_P1 = Check P1 buffer address for write access 
functional description: 


1 
ey 

AFA 1; This routine checks the P1 buffer and if okay, the buffer address 

“4 266 ; is saved in IRPSL_MEDIA of the IRP. 

AFA 264 : Inputs: 

AFA 564 : Ri = Size of buffer for write access 

AFA 2567 ; R3 = IRP address 

AFA 208 : R4 = PCB address 

AFA 2$ : RS = UCB address 

AFA 2570; R7 = Function code 

ae 3) 3 R9 = COB address 

AFA 278 : Outputs: 

OAFA 2574 ; 

re 32 3 RO is destroyed. 

OAFA 379 : No RETURN on NO ACCESS. 

OAFA 379 > Implicit Outputs: 

OAFA 2581 : IRPSL_MEDIA(R3) = User P1 buffer address 

~e 388 3 IRPSV_FUNC bit set in IRP$W_STS by EXESREADCHK subroutine. 
OAFA 5888 an 
Oar 286 CHECK_P1: 

38 A3 D4 AFA 5 CLRL IRPSL_MEDIA(R3) : Assume no P1 buffer 
50 6C f OAFD 2588 MOVL P1(APT,RO : Get address of user buffer 
OA 13 O0B00 2589 BEQL 10$ :; Br if none 
00000000'°GF 16 0B0 590 JSB G*EXESREADCHK ; Check access to buffer 
0B0 591 ; (No return = no access) 
38 AS = 50 0 0B0 236 MOVL RO, IRP$L_MEDIA(R3) ; Save Pl buffer address in IRP 
05 OB0C 2595 108: RSB ; Retur~ 92 caller 
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-SBTTL ALLOC_P2BUF, Allocate a P2 buffer and charge user's quota 


ao 
ALLOC_P2BUF = Allocate a P2 buffer and charge user's quota 
Functional description: 


This routine allocates a system buffer and returns the address in the IRP at 
tape pene The size of the allocation, including buffer header must 


be at least bytes in length. 
Inputs: 
R1 = Size of allocation desired 
R3 = IRP address 
Outputs: 


RO = status of request 
Ri-R5 are preserved. 
Implicit Guipuis: 
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IRPSL_SVAPTE(R3) = address of system buffer 
IRP$W_BOFF(R3) = byte count charged to user's process 
oe IRP$W_BCNT(R3) = origiral byte count requested 
0D All parts of the P2 buffer header are initialized, except for the 
+4 user's P2 buffer address. 
Op ote | 
| 
0D ALLOC_P2BUF : ; Allocate a non-paged buffer 
51 if 0D TSTL R1 ; Zero length buffer? 
. Be OF BEQL 30$ ; Br if yes 
OE 868 11 PUSHR #*M<R1,R2,R3> ; Save registers 
32 a3. 0 551~—s«BO 13 MOVW R1, 1RP$W_BCNT(R3) ; Save original byte count 
te a 1 CMPL R1,S°#24=P2B_C_LENGTH :; Is buffer big enough? 
03 1A 1A BGTRU ; Br if yes | 
51 Oc 00 1C 26 MOVL $“°#24-P2B_C_LENGTH,R1 : Else, set size to minimum 
51 OC CO OBIF 2636 5$ ADDL2 $*#P2B_C_CENGTH, : Add in size of header | 
00000000'GF 16 08 ¢ 6 JSB CAE RE SOUF QUOPRC ; Check for buffered quota 
0D 50 «ED o8 : BLBC RO,10$ ; Branch if quota bad 
8 6 + Quota OKAY, allocate buffer and copy info. | 
51 DD B 2642 © PUSHL R11 ; Save size to charge user 
state: 1 4 64 JSB yd |} emanated : Go allocate a buffer 
05 .0 =«O€ 644 BLBS RO,20$ ; Br if success 
ge D G 3645 TST (SB) + : Pop saved size 
E Ba 066 10$: POPR #*M<R1,R2,R35> ; Restore registers ; 
5 A 4 RSB ; Return with error code in RO 
4 es : System buffer allocated decrement user's quota 
53 8ED0 651 208: POPL R3 ; Restore user quota charge 
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9 3 6 § MOVAB Pg) T_DATA(R2) ,P2B_L_POINTER(R2) ; Set address to start of data 
S 42 26 mOVW P26 w_SIZE(R2) ~ i’ Save buffer size in buffer 
46 2654 MOVB Be AD INS Ce “BUF 10,P28. B_TYPE(R2) ; Set. structure typ 

Dd A 2655 MOVL R2,R : Save P2 char bu PSddr 
D 4D 26 g MOVL ces JIB(R4) .R2 ; Get JIB address 

C 2 6 SUBL R3,JI6SL BYTCAT(R2) : Decrement user's _nte 
BA 6 § POPR #*M<R1,R2,R3> : Restore register 
D 3 6 MOVL RO, IRPS$L_§VAPTE(R3) t Save P2 buffer address in IRP 

C 2660 MOVW P26 Ww _SIZE(RO), IRP$W_BOFF(R3) ; Return buffer size in IRP 
C 0861 2661 30$:  MOVZWL ceases: NORMAL ,RO : Set success 
5 64 2662 RSB ; Return to caller 
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KDDRIVER = VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 :28: AX/VMS Macro v04-00 P 0 
Veen O08 STARTIO, Start 1/0 rout ine ; miter 7 90:98:55 YORIVER. SRC IXDDRIVER.MAR; 1 a (38) 
$ -SBTTL STARTIO, Start 1/0 routine 
66 


oe 
; STARTIO = Start a transmit, receive, or set mode operation 
; Functional description: 


o 


6 
6 
6 ; 
6 : 
6 ; 
? : 
6 $F) ; This routine is called when an IRP is given to EXESQIODRVPKT. 
6 ore 3; From here, Copend'ne on the type of function., the appropriate 
? 5 3; routine is called. 
of? ; Inputs: 
6 $73 3 R3 = IRP address (1/0 request packet) 
6 o78 3 RS = UCB address (unit control block) 
Oss 44 3 R9 = COB address (only if circuit request) 
6 681 ; 
$862 6 ¢ 3 IPL = FIPL 
086 685 ; 
0865 2684 ; Outputs: 
0B65 2685 ; 
0B65 2686 ; R3,R5 are preserved. 
M 0B65 2687 ; ‘ 
0865 2688 ; The routine must preserve all registers except RO-R2 and R4. 
0B65 2689 ; 
9898 690 ;-- 
65 2691 
0865 2692 STARTIO: ; Process an 1/0 packet 
0B65 2694 PUSHQ R6 3; Save registers 
50 04 90 0868 2695 MOVB #JNL_QUE,RO ; Set journal type = QUE 
195F 30 OB6B 269 BSBW XD_FTLL_JNX ; Fill the journal buffer 
pase p44 POPQ R6 ; Restore registers 
51 21 A3 9A 0871 00 MOVZBL IRPS$B_XDFUNC(R3),R1 ; Get the function code 
01 51 91 0B75 2701 CMPB)soR'1,S*#XD_FC_V_INITC ; Startup device? 
OA 13 pare 70 BEQL ; Branch if so 
50 0084 8F 3C 7A 270 MOVZWL #SS$_DEVOFFLINE,RO ; Assume device not running 
10 €0 OB7F 2704 BBS mS0_ERR_FATAL,- : Br if hung 
42 44 AS 0B81 2705 UCBSL“DEVBEPEND(RS),.DRV_DONE =; 
7 706 10$: SOISPATCH R1,TYPE=B,-— ; Dispatch on function request 
4 270 <- i function action 
0B84 18 
$ 709 <XD_FC_V_LINITT START_TRIB>,- ; Start tributary 
4 2710 <XD_FC_V_LINITC START_DEV>,- ; Start DMP11 controller 
4 2711 <XDFC“VSTOPT TRIB_ACTIVE>.- ; Stop tributary 
4 te <XD-FCVISTOPC DEV_ACTIVE>,- ; Stop DMP11 controller 
4 271 <XD-FC_V_CHGC = DEV_ACTIVE>.- ; Change controller parameters 
4 2714 <XD-FCIVICHGT _TRIB_ACTIVE>.- ; Change tributary parameters 
0B84 2715 <XD"FC"V_RDMODEM DEV_ACTIVE>,- ; Read modem register 
4 rig <XD_FC_V_RDTERR TRIB_ERRS>,- ; Read tributary error counts 
4 271 <XD"FC"VIRDGERR DEV_ACTIVE>,- ; Read global error counts 
4 rig <XD“FC“VIRCTERR TRIB_ERRS>,- ; Read and clear tributary ctrs 
4 271 <XD“FC"VORCGERR DEV_ACTIVE>.- ; Read and clear global counts 
4 2720 <XD-FC"V>RDTSS TRIB_ACTIVE>,- ; Read TSS location 
4 2721 <XD“FC"V"RDGSS DEV_ACTIVE>,- ; Read GSS location 
4 2722 <XD"FC"VIWTMODEM DEV_ACTIVE>,- ; Write modem request 
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<XD_FC_V_POLSS TRIB_ACTIVE>,- ; Read polling sub-state 


Other request types - if we fall thru case instruction. 

é BUG_CHECK NOBUFPCKT,FATAL ; Fatal error 

; Start up controller 

START _DEV: ; Startup controller 


oF 19 BSBB ss STARTUP : Startup device 
01 50 3 BLBC RO,10$ ; Br if error 

5 RSB ; Return to caller 

; Error on startup - shutdown the controller 
59 bo 10s: PUSHL RO : Else, save status return 
11 0 BSBW SHUTDOWN_DEV ; Shutdown the device 
50 8ED0 POPL fp ; Restore status return 
7BRB DRV_DONE ; Complete request in error 
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Driver request complete 
Complete the request 
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UP, Device initialization routine SEP=19 DRIVER. SRCIXDDRIVER.MAR; 1 
f 4 ~SBTTL STARTUP, Device initialization routine 
C is ++ 
; 4 0 ; STARTUP - Device initialization routine 
3 4 3 Functional description: 
C9 2754 ; The configuration is read from the Pl and P2 buffers and a MODE DEFINITION 
C9 2755 ; command is issued to the DMP11 device. The buffers which have been set 
Ht 4 § ; up for the common receive pool are then given to the device. 
C9 2758: Inputs: 
cS $986 
OBC9 2760 ; R3 = IRP address 
OBC9 2761 ; RS = UCB address 
OBC9 2762 ; 
OBC9 2765 ; IPL = FIPL 
OBC9 2764 ; 
OBC9 2765 ; Outputs: 
0BC9 766 : 
OBC9 2767 ; RO = status return for startup operation 
OBC9 2768 ; 
OBC9 2769 ; R3,R5 are preserved 
0BC9 2770 ; 
OBC9 2771 :-- 
0BC9 ae 
OBC9 2773 STARTUP: :; Controller startup processing 
00 €1 OBC9 774 BBC #UCBSV_XD_INITED,- ; Br if not inited yet 
Oc 68 AS 0BCB 775 uCBSW_BevSTs(r5) ,1$ ; 
50 02C4 8F C peck 776 MOVZWL #SS$_BEVACTIVE,RO ; Else, device already active 
08—B 30 OBD3 2777 BSBW REQ COM ERR : Complete request in error 
50 01 9A OBD6 2778 MOVZBL S$*#5S$_RNORMAL,RO 3 DO NOT STOP CONTROLLER! 
05 er 44 RSB 3; Return to caller 
FS6F CF 42.05 BI OBA 781 1$: CMPW CB$W_DEVBUFSIZ(R5) ,MAX_W_BUFFER; Is buffer too big? 
04 18 OBEO ree BLEQU $ ; Br if not, okay = 
50 4% 3 poe e 78 MOVZWL #SS$_BADPARAM,RO ; Else, set error condition 
0S OBE 784 RSB ; Return to caller 
pers 785 
E6 re6 2s: 3 
OBE6 278 : For u-VAX I, we must have a contiguous buffer area! 
OBE6 2788 . 
OBE6 2789 CPUDISP <<790,9$>,- 
Beee 790 <780,9$>,- 
E 791 <750,9$>,- 
E6 238 <730,9$>,- 
cb at, - <UV1,3$>> 
52 o012¢C ¢5 DO OC 795 MOVL CBSL_XD_UV1BUF (R5) ,R2 : Is the buffer area present? 
06 12 OC 79 8 ; Br if not, error : 
50 0124 8F 3C OCO? 279 MOVZWL #SS$_INSFMEM,RO ; Else, set error condition 
05 OCOC 2798 RSB ; Return to caller 
COD 2799 
COD 0 5$: ; : : 
; : 1 ; Compute physical/virtual address of buffers in buffer area. 
52 OC A2 9E OCOD : MOVAB 12(R2),R2 : Get start of buffer area 
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FFFFFEOO ereate “ BYTE>,R2,R1 Get buffer offset. (BA00-BA08) 


RO. a9 01 nS, ai " ag A09-BA21 
Te 
$3 Spetig 


Use RO as i buf f i 
R} -UCBSL XD_RC receive er index 
10C €54 
b19e. fee 
3) ¥ 
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$ TuP, evice initialization routine g- Sere} 38 88: $$: 88 DRIVER. SRCIXDDRIVER.MAR; 1 of (3?) 
0? 11 EXTZV #VASV_VPN,#VASS_VPN,R2,R0 ; Get virtual page number 
2 lds 16 MOVL ayo 4-35 SPTBASE,R1 ; Get the base. address of SPTs 
140 19 MOVL CRIDER he ; Get the PTE ¢ 
51 
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(R5) CRO 
(Ray ERO Save RECV Virtual address 


Vv Save RECV Physical address 
MOVL R2,U coe 0 “RCV 
uvi Skip to aon buffer 


ADDL ami “UV 


Loo if mo 
CLRL Use RO as. as xmit buffer index 
8$ MOVL Bee UCBSL. XD_XMT_P Save XMIT Physical address 


MOVL R2,UCBSL~ XD_XMT_V 


Vv Save XMIT Virtual address 
ADDL #MAX_BUFSIZ~UVI->R 


Skip to next buffer 
ADDL #MAX_BUFSIZ-UV uh -8 
AOBLSS #MAX_XMT_UVT,RO 


WNAOOVCVIW*OOoVOI 
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E2 50 Loop if more 


3 


INSV #0,#8, UCBSL Dt tt? ; Reset status and error flags 
MOVL  IRPSL’PID(R3),UCBSL_XD PID(R5) : Save starter's PID 
ASSUME UCBSB- xD “OUTTA a°0¢ BSB XD_ INTIMe 1 

Mette XD-INTIM t timer cell 


CLRW s 
SETBIT #uceS9_xB_ INI TING. UCBSW_ pevsTs(ri) ; gy Bia device initing 
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: Initialize the buffer and 1/0 request queue heads 
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: 
MOVZWL #UCBSC_XD_QUEUES,R ; Set number of queue heads 
6 MOVAB UCBs XD RD SQUEUES (AS), R2 > Set address of first head 
. eS 9E 10$: MOVAB : Init forward Link 
82 FC A2 9 MOVAB <sins)s taaye : Init backward Link 
F6 5 Ff > SOBGTR ; Br if more queues 
32 : > Initialize the transmit and receive mapping info vector. 
0298 CS) 4 95 : y CLRL UCBSL_XD_RUN(R5) : Initialize tribs in run 
029C C5 99 CLAL UCBSL_XD_HALT(RS) : Initialize halted tribs 
134 ¢5 9D : CLRB UCBSB_XD_TRB_CNT(RS) : Init Ry of active tribs 
0 OF SX Al MOVZWL = #MAX_RCVFMAX~XMT,RO Set number of rcv and xmit slots 
AG 8 ASSUME ucesC_ XD_RCV HAP +<GeMAX _RCV> EQ icBst_ XD_X XMT_MAP 
51 00C4 CS DE AG MOVAL UCBSL-XD-RCV_MAP(RS),R Get map vector address 
81 1 cf CA9 15$: MNEGL #1,(RT)+ Indicate no map info. 
FA 50 «OF ~ oe SOBGTR RO. 138 ; Br if more map slots 
CAF 4 : Initialize vector areas of UCB 
51 ae 4 ¢ —E OCAF 51° MOVAL UCBSL_XD_VECS(R5),R1 : Get address of start of vectors 
52 058 3F C OCB4 2¢ MOVZWL #UCBSC_XB_VECS.R2- ; Get number of Longwords 
+ D4 O0CB9 208: CLARL R1)+ : Initialize vector area 
FB 52 «FS 4 22 SOBGTR R2,20$ ; Loop if more 
32 A B4 cB 2$ CLRW IRP$W_BCNT(R3) : read buffer for 1/0 post 
0136 (5) «642 A BO OCC : MOV IRPSW “GUSTARS).ucasy_x0_avorAcné> 3 Store receive buffer quota 
42 A B4 OQCC7 3 CLRW IRP$W~QUOTA(R3) : No buffer quota to return 
54 24 A dO eee 23 MOVL UCBSL~ _CRBC(RS) ,.R4 ; Get CRB address 


4 
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cc 6 ; For uVAX I, the max receives and max transmits are fixed, 
4: ; + and there are no map registers on uVAX I! 
cc 64 tPUDISP <<790,30$>,- 
ee 8 BR 
cc 6 <730,30$>,- 
es o8 <uv1,70$>> 
cE 29 30$ ALL encost uVAX 
0138 33 9? cE 7 ho Ove MAX_RCV, utes. XD_RCV_MAX(RS) ; Set max concurrent receives 
133 C 7 cf  . MOvVB #MAX_XMT,UCBSB_XD_XMT_MAX(R5) ; Set max concurrent transmits 
CF 74 : Allocate map registers for foc love buffers. 
CF 75 ; The unbuffered datapath (DPO) is used for all 1/0's due to fhe fact that 
CF 76 ; the controller can initiate retransmissions but on the 11/780, the datapath 
+ ; requires purging before it can be reused. 
7E AS 42 AS CF 8 MOVW ucese pevour sis ihe} - UCBSW eerenee ; Set buffer size 
7C AS) OFF O8&F CF 80 MOVW OcB$w F(R5) Set worst case byte offset 
pcre 4 ASSUME vECSW_M RAPREG EG VECSB_NUMREG 
CFD § ASSUME VEC$B~ _NUMREG+1 EQ VEC$B8" DATAPATH 
34 AG «624 SOCOOCFD 8 CLRL CRBSL_INTD+VECSW_MAPREGTR4) : Clear map register + datapath 
+94 84 PUSHQ R6 3; Save R6,R7 
56 S43 C DE 0D0 85 MOVAL UCBSL_XD_RCV_MAP(RS) ,R6 ; Get mapping slot address 
57 0132 C¢ 9A 0008 36 MOVZBL UCBS$B~XD~RCV~MAX(R5) .R7 ; Get number of rcv map slots 
00000000'GF 16 9008 87 40S: JSB G* IOCSALOUBAMAP ; Allocate a set of map registers 
o 50 €9 0D! 88 BLBC 4 : Br if unavailable 
86 4 AG 4 pete 89 MOVL CRBSL_INTD+VECSW -MAPREG(R4), (R6)+ ; Save receive map info 
FO 57 —s*#F 45 4 SOBGTR R7,408 : Br if more slots available 
0D1D 3 50$: POPQ R6 3: Restore R6,R7 
3 50 8 OD 9 BLBS RO,90$ ; Br if okay so far 
50 0344 8F C OD 94 MOVZWL #SS$_INSFMAPREG,RO ; Set insufficient map registers 
05 30 34 RSB 3 Return with error 
D29 97 70$: ; UvI 
O13s CS 046 90 OD29 38 MOVB #MAX_RCV_UV1,UCBSB_XD_RCV_MAX(R5) : Set max concurrent receives 
0133 ¢S 02 90 OD 3 89 MOVB #MAX”XMT~UVI, -UCBSB~ XD—XMT_MAX ¢ R5) Set max concurrent transmits 
50 9A p ; 300 MOVZBL S*#SS$_NORMAL,RO ; Success 
0D36 90$: 5 
; Common code pat 
4 ? 08 C d h 
42 a5 aA? OD 2 905 bivw3 § ucesw -DEVBUFSIZ(R5) 5 : Compute quota for rcv buffers 
51 0136 3 D 90 UCBSW_XD_QUOTA(RS) ,R1 : 
0132 C5 1 91 D 90 CMPB R1 uch$B- XD_RCV_MAX(R5) : Is number less than max? 
93 $5 D4 44 BGEQU ; Br if not - leave max alone 
0132 C5 1 D4 90 Ove R1,UCBSB_XD_RCV_MAX(R5) : Else, reduce max rcvs allowed 
bee S01) 
D49 318 3; Now the DMP11 device is master cleared. A timeout is setup to occur 
D469 2915 ; in approximately one to two seconds. That should give the DMP enough 
D49 2914 ; time to run the micro-diagnostics. After the timeout, we will procede 
4 Biz : and initialize the device. 
D49 319 3; We will use the WEIKPCH macro which will wait for interrupt or timeout, 
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4 18 ; but the interrupt should never occur = only the timeout! It was a handy 
+ 19 ; way to schedule a 2 second timeout without a lot of fuss and bother. 
D4 ASSUME post Cs 
54 2C B46 DO OD4 MOVL C InrBevEcst_ IDB(R4) RS ; Get CSR addre 
Oe DSBINT uce$B_BiPL : Disable deviee interrupts 
01 AG) «6440 BF O90 s«OOD MOVB #XD_BSEL1_M_MCLR,BSEL1(R4) ; Set the master clear bit 


success return status. 


WFIKPCH does not destroy RO, therefore RO should still have SS$_NORMAL 
: WFIKPCH START_CONT,#2 ; Wait 2 seconds for master clr 
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START_CONT, Continue after ti 
D 9 . SBTTL 
D 9 
06 9 § 3+ 
+ 4 5 ; START_CONT - 
D6 S $ 3; Functional d 
D6 9 
06 9 § 3; This routine 
06 940 ; when the dev 
Des S9c0 
D6 308 ; Inputs: 
D6 944 ; 
D6 945 ; R3 = 1 
D6 3e$ 3 RG =C 
0D6 947; 5 =U 
0D6 4 3 
el gp: me 
B08 33) 3; Outputs: 
D6 33 3 RS is 
D6 954 ; 
seh eee i 
0D6 9e9 START_CONT: 
0D6 958 CLRBIT 
Oc AS OQOOOI1BCC'EF 9E O0D6 959 OVA 
01 AS) «680 BF O93) «=—(0D7 960 BITB 
07 +13 OD7 961 BEQL 
06 AS )6«6C5 BF CO9s«OD7 306 CMPB 
15 13 OD7C 296 BEQL 
47 AS O6 AG 9 pore 964 10$: MOVB 
0088 DS $3 3 OD 965 INSQUE 
55 01 0D88 296 ASHL 
54 OF 10 78 OQOD8C 296 ASHL 
0B10 31 OD9 968 BR 
0D9 969 
009 970 
ss 33H 
04 a6 18 91 009 398 20$: CMPB 
09 i D9 974 BNEQ 
41 a5 17 9 D99 «2975 MOVB 
FSAF Cr 10 80 DAD 59n9 30S: SETBIT 
DA 4 | CLRBIT 
64 10 8 DAC 297 BISB 
01 =€ DAF 2980 BBS 
03 44 AS DB1 2981 
0083 31 +4) > § 355 BRW 
DB? 2984 SDISPA 
DB7 2985 
DB7 29 § 
DB7 29 
DB? 2988 


; The device seems to be running - give mode definition 
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Continue after timeout 
escription: 


is called by the system after the startup timeout was set 
ice was master cleared. 


RP address 
SR address 
CB address 


DIPL 
preserved. 


Continue with startup 
Clear timeout status 

Set fork process PC 

; Is run bit on? 

; Br if not - error 

; Successful master clear? 


#UCBSV_TIMOUT ucesu w STS«RS) 
Yes, continue 


FORK P PROC ,UCBS$L 
D_BSEL1 ‘m RUN; “BSEL 1 iR) 
#°0305,BSEL6(R4) 
Cas eaueas UCBSL DEVDEPEND+3(R5) 
D PosT+4(R5) 
#xd ~6get¢ L2_V ~ERR+18. #1,R3 
#16783, RG 


SCHED_FORK 


; Save BSEL6 on error 
Insert IRP on posting Q 
Indicate fatal error 
Indicate device error 

. : Request complete 


£955 -BSELA CRG) : is this : DMV11? 
no 
#0T$_DMV11,UCBSB_DEVTYPE (RS) S ies, set proper device e type 
#MAX” DMV RIB,MAR W TRIB > Set maximum number of 
#ucBSv_x5_ INITED ,OCB$W_DEVSTS(RSS : Indicate device inited 
#UCBSV"XD-INITING UCBS@ DEVSTS(R5)’; No Longer initing 
#XD BSEL 07m M_IEO, BSELOCRE) ; Enable output interrupts 
XMSV_CHR-LOOPB,- ; Br if loop 

yCBSL ~DEVBEPEND{RS) , 35$ ; 

; Continue 


rem _UCBSB _DEVTYP a. TYPE= 8. - ; Dispatch on device type 
“;funct action 
<DT$_DMV11, 40$>,- ; DMV11 
<DT$-DMP11, 70$>,- > DMP11 
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7 2989 > 
DDA 29 y 
1 hoa 
$i A 90 485 335 40$: MOVB gxD set! -M_MCLR!XD_BSEL1_M_MAINT,- ; Request Maint mode for DMV 
DOF 995 TIMEWAILT y vl axD “BSEL2. M_RDO,SEL2(R4) ,B : Wait for MAINT RDY to be set 
E 336 i s++ same as RDO bit 
2¢ 50 «6€9 OE04 299 ae RO,50$ ; Br if ERROR 
02 a6 406 BO E07 9 MOVW = #6,SEL2(R4) ; ead or comeeet and clear 
: aint rea | 
E98 $00 TIMEWAIT #9, #XD_BSEL1_M_RUN,BSEL1(R4).8 ; Wait for SAINT REY to be set 
07,50 §8 OE BLBS RO $08 ~ ; Br if success | 
FFG 1 : 2 B06 50$: BRW 10$ :; Else, process error 
: 6 3004 ; DMP=11 | 
01 AG) «6008—88B : : 006 70$ BISB #XD_BSEL1_M_LOOPB,BSEL1(R4) ; Else, enable device loopback 
0094 ¢5 63 E OF A 3008 90$: INSQUE (R3),UCB$Q_XD_INPUTQ(RS) : Insert at front of input Q | 
018E 1 OE3F 3009 BRW LOAD_PORT ; Request input port 
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-SBTTL START_TRIB, Start tributary routine 


S START TRIB = Start tributary routine 
; Functional description: 


: this routine is called when a tributary is to be established and started. 
; The polling parameters are initialized also. 


Inputs: 
R3 = IRP address 
R5 = UCB address 
R9 = COB address 
IPL = FIPL 
Outputs: 


RS is preserved. 


START_TRIB: : 7 tributary 
08 0c Ad = = 00 4 BBC S_V_ESTAB,CDB_W_STS(R9), 108’; r if trib not active 
50 02C4 8F C MOV ZUL aseS. DEVACTIVE,RO : i tse, trib already active 
0081 +331 BRW 10_DONE 3; Request complete 
10$: ; Sync access to device 


SETIPL i) DIPL(RS) 3 
INSQUE suCcBsa _XD_INPUTQ+4(R5) 3; Insert at end of input Q 
BRW PORT ; Request the CSR 

; Let return to IOCSINITIATE 
3 clean up IPL 


0098 DS 63 oF 
0175 1 
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-SBTTL DEV_ACTIVE, Device must be active 


+ 
; DEV_ACTIVE = Device must be active 
Functional description: 
This routine is called to qyeue @ request to the device input queue. 
The routine must first verify that the device is active, before the 
request can be queued, however. If the device is not active, the request 
is posted in error. 
Inputs: 


R3 = IRP address 
R5 = UCB address 


IPL = FIPL 
Outputs: 
None. 
DEV_ACTIVE: Check if device is active 
BBS #UCBSV_XD_INITED,UCBSW_ Devsts(Rss ,108 ; Br if device inited 
ROVZUL #SS$_DEV TRACT T,RO ; Else, return error 
10_66NE ; Finish 1/0 


10$: SETIPL ucese pl L(R5) : Sync access to device 
INSQUE sucasa, XD_INPUTQ+4(R5) 3; Insert at end of Q 
BRW LOAD! 3; Give request to device 
; Let return to 1OCSINITIATE 
3; --clean up IPL 
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ibutary must be active -SEP-1984 DRIVER. SRCIXDDORIVER.MAR; 1 
-SBTTL TRIB_ACTIVE, Tributary must be active 


a 
TRIB_ACTIVE = Tributary must be active 
Functional description: 
This routine is called to queue a request to the device for a tributary. 
The routine must first verify that the trib is active and if so, queue 
the request, else it must post the request in error. 
Inputs: 
hy = IRP address 
R 


= UCB address 
R9 = CDB address 


Bete Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Sse Se Ge Ge Se 
+ 


IPL = FIPL 
Outputs: 
None. 
TRIB_ACTIVE: Check if trib is active 
08 0C AD «00 0 D.TS_V coe £08. W_STS(R9), 108"; Br if trib established 
50 20D4 8F C ROVZUL #5e8 DEVINACT "Set error return 
OD4F 1 BRW 10_DONE : Finish the request 
10$: SETIPL UCBS$B_DIPL gs ; Sync access to device 
0098 D5 $3 OF INSQUE (R35), su CB$Q_XD_INPUTQ+4(R5) ; Insert at end of Q 
014 1 BRW LOAD_PORT 
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: Load CSR's 
; Let return to IOCSINITIATE 
3 «clean up IPL 
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XDDRIVER = VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 00:28: AX/VMS Macro v04-00 Page 71 
YOee 000 TRIB_ERRS, Read trib errors routine gr SE 3be 90:48:60 DRIVER. SRCIXDDRIVER.MAR; 1 . (32). 
: 4 136 -SBTTL TRIB_LERRS, Read trib errors routine 
—8D 31 p++ 
; 4 ! ¢ ; TRIBLERRS = Read trib errors routine 
: 4 1 ¢ 3; Functional description: 
E8D 31 § : This routine is called to read the tributary error counters. ALL 
E8D 31 3; counters are read from the device except for data messages and bytes 
OE8D 31 8 ; transmitted and received. These counters are bits in Length and 
: 4 : 4 3 are kept by the driver itself. 
E8D 3131 ; Inputs: 
—8D 31 ¢ : 
—8D 31 5 fs = IRP address 
E8D 3134; R5 = UCB address 
E8D 3135 ; R9 = COB address 
—8D 31 $ é 
4+ 1 3 IPL = FIPL 
E8D 3138; 
OE8D 3139 ; Outputs: 
34 140 ; 
E8D 141; The error counters are returned and the request is completed. 
OE8D 196 3 
E8D 3145 ;-- 
E8D 144 
E8D 3145 TRIB_ERRS: 
08 0c Ad =: 00 0 OE8D 146 BS #CD_TS_V_ESTAB,CDB_W_STS(R9),10$ ; Br if trib established 
50 2004 8F C DENS 14 MOVZWL #SS$_DEVINACT,RO ; Set error return 
0036 1 4344 133 BRW 10_D6NE ; Finish the request 
52 2C Ad D E9A 3150 108: MOVL IRPSL_SVAPTE(R3) ,R2 ; Get system P2 address 
1 e9 151 BEQL 20$ ; Br if none 
50 F2B3 CF 9E OEA 136 MOVAB TRIB_COUNTER,RO ; Get address of counter codes 
51 6 DO OEA 15 MOVL (R2),R1 : Get address of data 
OEAB 3154 PUSHQ R2 : Save P2 buffer address + IRP 
52 38 A9 DE OEAB 3155 MOVAL CDB_L_CNTS(R9) ,R2 :; Get address of counts 
OEAE 136 ASSUME CDB~C CNTS EQ 16 : Assume 16 bytes of XD counts 
53 06 3 peat 13 MOVZWL S$*#%,R 3; Set number of counters 
81 80 60 £89 159 15$: MOVW (RO)+,(R1)¢4 ; Set next code 
81 8 oY EB 160 MOVL (R2)+,(R1)+ ; Set next value 
F7 F EBB 161 SOBGTR R3,15$ : Loop if more 
EBB 188 POPQ Re ; Restore P2 buffer address + IRP 
6¢ 51 00 44] 164 MOVL R1,(R2) ; Reset address of next byte 
21 A 09 91 OEC 165 CMPB #XD_FC_V_RCTERR, IRP$B_XDFUNC(R3) ; Is this a clear counter? 
06 12 Ce 196 BNEQ 208 ; Br if not 
38 AD =67C_) CODEC 16 CLRQ COB_L_CNTS(R9) : Else, clear counters 
40 A9 7C +5 198 CLRQ CDB_L_CNTS+#8(R9) : = 
ECD 196 20$: SETIPL ucese DIPL(RS) : Sync access to device 
0098 DS 65 of ED? 3171 INSQUE (R3),dUCB$Q_XD_INPUTQ+4(R5) ; Insert at end of Q 
OOF 1 EDS 17 BRW LOAD_PORT ; Give to device 
ED 17 ; Let return to IOCSINITIATE 
ED9 3174 3; .-clean up IPL 
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FILLRCVLIST, Fill receive buffer List green be 90:98:68 DRIVER. SRCIXDDRIVER.MAR; 1 . ASS 
ED 176 -SBTTL FILLRCVLIST, Fill receive buffer List 
4 if -SBTTL ADDRCVLIST, Add a buffer to the receive List 
ED 158 p++ 
ED 1 ? 3; FILLRCVLIST = FILL receive buffer List 
393 ! 3; ADDRCVLIST = Add a buffer to the receive List 
434 : § 3; Functional description: 
ED9 3185 ; This routine is entered to make sure that the receive buffer poot 
—ED9 31 § : is full. If it is not, buffers are allocated and queued to the 
ED9 31 3; list until it is. 
E09 3188 ; 
ED9 3189 ; Inputs: 
ED9 3190 ; 
ED9 3191; Re = Buffer address (ADDRCVLIST only) 
ED9 136 3 RS = UCB address 
ED9 3193; 
ED9 194 ; IPL = FIPL 
OED9 3195 ; 
OED9 196 3; Outputs: 
OED9 3197; 
OED9 3198 ; RO-R2 are destroyed. 
OED9 3199; 
OED9 00 ;-- 
OED9 4 -ENABL LSB ; 
QED9 ¢ FILLRCVLIST: ; Fill receive buffer List 
E1 OED9 0 BBC #UCBSV_XD_INITED,=- s Exit if not inited 
60 68 AS OEDB Be UCBSW_BEVSTS(RS) ,40$ 3 
5 D4 +43 B2 CLRL R2 3; No buffer here 
OEEO $9 ADDRCVLIST: ; Add a buffer to the receive list | 
peeg 08 PUSHQ R3 3; Save R3, 
AS 61 OEE 09 5$: CMPW UCB$W_DEVBUFSIZ(R5),- ; Can new block be allocated? 
c5 OEE6 10 gta ehtccenae 3 
34 1A OEE9 11 BGTRU 0$ : Br if no - List filled 
51 D4 OEEB \§ CLRL R1 ; Zero size 
8F Al EED 1 ADDW3 #RCV_T_DATA+CXB$C_TRAILER,=- 3; Compute block size needed 
AS EFI 14 UCBSO_BEvVBUFSIZ(R5),R1 : 
52 DS OEF4 15 TSTL R2 ; Buffer already allocated? 
09 =12 + 1g BNEQ 7$ ; Br if yes 
GF 18 EF 1 JSB st nae 3; Allocate nonpaged memory 
50 6C€ EFE H BLBC RO,10$ : Br if failure 
51 34 4)! 19 7$: MOVW R1,RCV_W_BLKSIZE(R2) ; Insert block size 
17 FOS 0 MOVB  S*#DYNSC"NET,RCV_B BLKTYPE(R2) ; Insert block type 
6¢ OF 4 1 INSQUE (R2),UCBSQ_ xD_RCV_BuF (RS) : Insert block on free receive List 
A A F ‘ ¢ ) B$wW_DEVBOFSTZ(R5),- : Decrement quota 
C5 F UCBS$W~XD_QUOTA(RS) : 
2 D4 OFI4 & CLR’ R ; No more buffers given 
cB OC«dM'?m 4 5 BRB 5 3; Try for more 
4 5 : Buffer allocation failure 
F1 § 108: SETBIT #XMSV_STS_BUFFAIL,- : Set buffer alloc failure 
F1 0 YCBSL -DEVDEPEND (RS) ; é 
0 611 i? } BRB 0$ ; And give any receives to device 


yourO00. ADDRCVLIgT.” Addo butter to OESNer ave "Br S-19R6 00:19:00 LORIVER.SREIKDDRIVER.MAR:1 °% (53) 
; 208: CLRBIT ta ~SeuoeP Ab Ty : Clear buffer alloc failure 
5 MOVL RO” : Get address of buffer 
§ OSB" Me : Deallocece it 


; 30$: DSBINT UCBSB_DIPL(RS) 
40 $BB START_RECEIVE 
4h ENBINT 

POPQ 


4g R3 
43 408: RSB 
44 -DSABL LSB 


Sync access to device 
Start the receives 
Restore previous IPL 
Restore R3, R4 

Return 
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Start any receive reques eee 0:78:88 YORIVER. SREIRDDRIVER.MAR: 1 . (3) 
-SBTTL START_RECEIVE, Start any receive requests pending 


Sad 

; START_RECEIVE = Start any receive requests 

; Functional description: 

; This routine attemptes to start any receives that may be gonetne. This 
; involves dequeveing a free receive buffer, mapping it, and loading it’ 
; address and size into the device. 

; Inputs: 

RS = UCB address 

IPL = DIPL 


; Outputs: 
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RS is preserved. 
RO-R4 are destroyed 


; Start receive operation 

; Get max concurrent receives 
; Get a free mapping slot 

; Br if none - just exit 

; Get a free buffer 

; Br if buffer found 

; Return to caller 


0 
START_RECEIVE: 
MOVZBL UCB$B_XD_RCV_MAX(R5) ,R1 
#0,R1,UCB$B_RD_RCV_MAP(RS) ,R1 


BEQL ss 

REMQUE @UCB$Q_XD_RCV_BUF (R5) ,R3 
BVC 208 
10$:  RSB 


: Mark slot in use and create buffer address/character count image 


51 0 
51 0130¢5 51 00 € 
53 O00BC DS OF 
01 
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: 3; in receive buffer and load UNIBUS adapter map registers. 
5 20$:  SETBIT R1,UCBSB_XD_RCV_MAP(RS) ; Mark slot in use 
0B AS = 551—s«9#0 5 MOVB R MAPS ; Save mapping slot index 
42 AS BO 5 MOVW ; Insert character count 
OE AS ? ; 
6 CPUDISP <<790,70$>,- 
6 <7 $> 
6 
8 <UV1,30$>> 
? 308: ; UV : 
50 OOFC C541 00 7€ 94 MOVL UCBSL_XD_RCV_PA(R5)(R1],R0 ; Get Pers tesi address 
CA 50 80 4 RO,RCV_L-BACT(RS) ; Set 0-BA15 
50 0 FO 8F 8 8 9 ASHL #-16,R : Shift down high byte 
10 a3 9 90 D 329 MOVE RO, RCV_B_BAHI(R3) : Set BA16-BAZ1 
11 31 ; BRB 90$ : Join common code 
$3 9 70$: ; ALL except UV1 R 
54 00C4 C541 ODE 9 1 MOVAL UCBSL_XD_RCV_MAP(R5)CR1),R4 ; Get mapping info slot address 
51 48 A3 9 99 02 MOVAB RCV_T_DATA(R3),R1 ; Get receive buffer data addr 


fa 
= VAX/VMS_DMP11/DMV11 Device Driver 1 mets 91 00:48:68 AX/VMS Macro V04-00 Page 75 
START_RECEIVE, Start any receive reques 5-SEP-1984 00:19: DRIVER.SRCIJXDORIVER.MAR; 1 (34) 
OC A 51 8B F9 3 MOVW R1 acy gt ACC(R3) : t BA “B46. 
OC A 07 3 4 e8 FAL 4 INSV (rd) ater RCV_L_BACC(R3) ; set 8 en from g reg 
50 64 EF OFA 5 EXTZV 4a rth 3 Get BAI6-BAi7/Ba01 also 
Oc AS «(02~—=C*=*S#C FO FAC 5 INSV °#36, a2 ety _L_BACC(R3) ; Set BA16-BAl 
D OFB PUSHL , 5 ove buffer negra 
52 02 Ab C OFB4 8 MOVZWL 2(R4),R2 ; Set number of map registers 
53 4 C OFB8 MOVZWL (R4),R3 : Set first map register number 
4 04 OFBB 10 CLAL R ; Use unbuffered datapath 
ow 16 rep 11 JSB G6* LOCSLOADUBAMAPN ; Load the map registers 
3 8EDO 43 \ POPL R3 ; Restore buffer address 
45 14 90$: : 
Bree 12 ; Common code path 
0094 cS 63 OE OFC6 i$ INSQUE (R3) -UCB$Q_XD_INPUTQ(R5) : Insert receive buffer at 
OF CB 18 3 FRONT of input queue 
03 10 OFCB 19 BSBB LOAD_PORT ; Request port and give request 
FF6F 31 OFCD 3320 BRW START_RECEIVE 3 Let's try it again 
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Request CSR routine 


-SBTTL LOAD_PORT, Request CSR routine 
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: LOAD_PORT_AVAIL: 
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*+¢+ 
LOAD_PORT = Request CSR port routine 


Functional description: 


assume to be on the input waiting queue. 


Inputs: 
RS = UCB address 
IPL = DIPL 
Outputs: 


RO = Success if port loaded immediately 
R1-R3,R9 = destroyed. 
RG = CSR address 


LOAD_PORT: 
MOVL = UCBSL_CRB(RS) ,R4 
ASSUME 1DBSL CSR Ed 


OVL OCRBSC_INTD+VECSL_IDB(R4) ,R4 
Bits #XD_BSELO_M_RQI,(R4) 
BISB #XD_BSELO_M_RQI,(R4) 
MOVZWL S*#5, 
5$: 1TB #XD_BSEL2_M_RDO,BSEL2(R4) 


BNEQ 
TIMEWAIT #1,#XD_BSEL2_M_RDI,SEL2(R4) .W 
BLBS RO.LOAD_PORT_AVAIL 

SOBGTR R3.5$ 


AX/VMS Macro V04-00 Page 
DRIVER. SRCIXDDRIVER.MAR; 1 


Request the controller's input port to give it a request. Since the 
; controller doesn't service the input port when it is busy, we may have 
to request an interrupt to service the request. 


The input request is 


Give next request to device 
Get CRB address 


Get CSR address 
Is an input request pending? 
Br if yes - wait for interrupt 


; Request input port 
Spt 


n loop count 
Is an output interrupt pend? 
Br if yes - wait for interrupt 


; Wait for RDI to be set-10uSE 


Br if true - port is available 


; Loop if more time left 


: Port is not currently available - request an interrupt to process the input. 


10s: BISB #XD_BSELO_M_IEI,(R4) 
BSBW 3s SET“INTIM 
CLRL = RO 
RSB 


; Port is available - load request into CSRs 


#XD_BSELO_M_RQI, (R4) 
REMQUE @UCB$Q_XD~INPUTO(RS) .R3 
MOVW § #XD_CI_V_NOOP, SEL6(R4) 
MOVW  #XDTI_Q_CONTROL,SEL2(R4) 


Request input interrupt 
Start input wait timer 
Indicate failure to get port 
Return to caller 


Load CSR ports 

Clear request for port 

Get next request on input Q 
Br if one there 

Else, release input port 
Set request type, clear RDI 
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ys DMP11/DMV11 Device Driver : i ts tb 4 00:48:38 } 


Request CSR routine P=1984 
a RSB 
; Give request from input queue to device 
fos:  cmPB JRPSB_TYPE(R3) ,S“#DYNSC_IRP 
BEQL 0$ 
seer RPSB_TYPE(R3) ,S*#DYNSC_NET 
BUG_CHECK NOBUFPCKT,FATAL 


: Load receive request 


MEW OONAUE Uy 


20S: 
9 PUSHQ R6 
9 BSBW  XD_BUF_JNX 
9 BLBC . 
%6 MOVB #JNL_CSRIN,(R6)+ 
9 CLRW R6)F 
38 MOVW = #<XD_FC_V_RECV@8>!21, (R6)+ 
CLRQ = (R6)F 
00 MOVW UCB$W_DEVSTS(RS), (R6)+ 
o1 MOVL  UCBSL-DEVDEPEND(R5) , (R6)+ 
2258:  POPG R6 


MOVW ——-RCV_L_BACC(R3) , SEL4(R4) 
SDISPATCH UCBSB_DEVTYPE(RS) , TYPE=B,- 
<- : action 


unction 
<DT$_DMV11, 27$>,- 
<DTS$"DMP11, 28$>.- 


ne 
ooo 


NOUS 


27$:  MOVB RCV_B_BAHI(R3) ,BSEL6(R4) 
MOVW RCVTL“BACC+2(R$) SELTO(RG) 
MOVW I~V_RCV!XD_BSEL2_M_Q22,- 
SELZ(R4T 
BRB 
28$: MOVW  RCV_L_BACC+2(R3),SEL6(R4) 
MOVW #XDTI~V_RCV,SEL2(R4) 


298: INSQUE (R3) ,@UCBS$Q_XD_RCV_PND+4(R5) 


: Dispatch to input process handler 


S0s: 


BONA AN @§ OO NAUE WO OONAUIE WO O@ 


PUSHQ R6 

MOVB #JNL_CSRIN,RO 
BSBW XO TEL INK 

BLBC ~=—_-rRO“S 

CLRQ ss (RO) 

MOVL RPSL_CDB(R3) RO 
BEQL 

MOVL  (R9),R9 

BEQL 50% 


AX/VMS Macro v04-00 
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; Return to caller 


buffer an IRP ? 

if yes - dispatch 
s9%8 a receive msg? 
e 


Is 
Br 
Is 
Br yes 
Else, fatal error 


Save registers 

Get the journal buffer 
Br if error 

Set journal type = CSRIN 
No CHAN 


Set DEVSTS 

Set DEVDEPEND 
Restore registers 
Load buffer address 


DMV-11 
DMP=-11 


and character count 
Set request type, clear RDI 


Continue 


and character count 
Set request type, clear RDI 


for trib #0 
Insert on end of pending Q 
Return to caller 


Save registers 
Set journal type 
Fill the journal 
Br if error 
Clear status 

Get address of CDB address 
Br if none 

Get address of CDB 

Br if none 


= CSRIN 
buffer 


Page 77 
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You LOAD_PORT, Request CSR routine ait $8 :98:86 LORIVER. SREIXDDRIVER. MAR; 1 . (35) 
86 OC Ad HH 1 C3 439 MOVW CDB_W_STS(R9) , (R6)+ ; Enter COB status 
8 69 dO 10 44 MOVL CDB_L_DEVDEPEND(R9) , (R6)+ ; Enter COB DEVDEPEND 
! $A rr 508: POPQ R6 ; Restore registers 
51 21 AS 9 10CD 3444 MOVB IRPS$B_XDFUNC(R3),R1 ; Get specific request 
o 10 1 3 | 445 BSBB IN_DISP ; Dipatch to input service 
50 1 3 100 44 MOVZWL S*#SS$_NORMAL ,RO ; Indicate port success 
1 6 44 RSB 
10D 44 
1007 3449 IN_DISP: ; Dispatch to input service 
1007 3450 SDISPATCH R1,TYPE=B,- 
! 4 ? : <- 3 function action 
1007 345 <XD_FC_V_INITT IN_INITT>,- ; Start tributary 
1007 3454 <XD_FC_VLINITC IN_INITC>,= 3; Start DMP11 controller 
1007 3455 <XD“FC“V“STOPT IN-STOPT>,- : Stop tributary 
1007 +2$ <XD_FC_V_STOPC IN_STOPC>,=- : Stop DMP11 controller 
1007 345 <XD_FC_V_CHGC IN_CHGC>,* ; Change controller parameters 
1007 $28 <XD_FC_V_CHGT __IN CHGT>,= 3; Change tributary parameters 
1007 345 <XD-FC"V-RDMODEM IR_RDMODEM>,- ; Read modem register 
1007 3460 <XD-FC"VORDTERR IN_RDTERR>,= ; Read tributary error counts 
10D7 3461 <XD_FC_V_RDGERR IN_RDGERR>,=- ; Read global error counts 
1007 rh <XD_FC_V_RCTERR IN_RCTERR>,= 3; Read and clear tributary ctrs 
1007 346 <XD_FC_V_RCGERR IN_RCGERR>,=- ; Read and clear global counts 
1007 3464 <XD_FC_V_RDTSS IN_RDTSS>,=- ; Read TSS location 
1007 3465 <XD_FC_V_RDGSS IN _RDGSS>,=- ; Read GSS location 
1007 346 <XD“FC“V“WTMODEM IN_WTMODEM>,- |; Write modem request 
10D7 346 <XD-FC"VIHALTT IN_RALTT>,=- ; Halt tributary 
1007 3468 <XD_FC_V_KILLT IN_KILLT>,- ; KiLL tributary 
1007 69 <XD_FC_V_XMIT IN_XMIT>,= 3; Xmit request 
1007 3470 <XD_FC_V_CANCEL IN_CANCEL>,= ; Halt tributary 
1007 71 <XD_FC_V_RECV _IN_RECV>,= ; Receive request 
1007 1 <XD[FCIVINUMSYNC IR_NUMSYNC>,- ; Set number of sync characters 
1007 7 <XD_FC_V_POLSTAT IN_POLSTAT>,=- ; Latch polling state 
1007 74 <XD-FCIVZPOLSS IN_RDTSS>,- 3 Read polling sub-state 
1007 75 > 
1107 6 3 
By AA ; OTHERS: if not one of the above, then error 
1107 79 BUG_CHECK NOBUFPCKT,FATAL ; Fatal error 
1108 80 
1108 1 
1108 ¢ i+ 
1138 Z 3 Establish tributary 
1108 5 [N_INITT: : Initialize tributary 
a 30 1108 § BSBW GET_CDB ; Get CDB address 
03 5 58 110€ BLBS RO, TOS : Br if CDB found 
039D «31 Wi 8 BRW REG_ABORT : Else, abort the request 
170C Ad «6000 =—E2 Ss«1114 10$: BBSS #CD_TS_V_ESTAB,CDB_W_STS(R9),20$ ; Br if trib established 
1119 91 ; and indicate trib established 
0101 8F BO 1119 349 MOVW #XD_CI_V_ESTAB!XD_SEL6_M_ECOM,- ; Establish the trib 
A 111D 349 SELB(R&) oe . 
03 AS = 40 AS 90 111F 3494 MOVB IRP$Q_STATION(R3) ,BSEL3(R4) ; Give trib address 
02 a6 01 90 1124 495 MOVE #XD ITV CONTROL ,BSEL2(R4) : Give request, clear RDI 
0094 (5 63 OF 1128 3496 INSQUE (R3),0CB$Q_xD_INPUTQ(R5) ; Insert at front of input Q 


J 8 
= VAX/VMS DMP11/DMV11 Device Driver = P=-1984 00:48:68 AX/VMS Macro v04-00 Page 79 
LOAD_PORT, Request CSR routine -SEP-1984 219: DRIVER. SRCIXDDRIVER.MAR; 1 (35) 
FEAO 331 rh 44 BRw LOAD_PORT 3; Request input again 
208: 3; Start tributary 
M0 S*#XD_C1_V_ISTRT,SEL6( STRT the trib 


vd R4) | 
BBC #XMSV~CHR_MOP,CDB_L_DEYDEPEND(R9S,30$ ; Br if not MOP mode 
“# R4) ; Else, MOP mod 


MOVW  $*#XD"C1_O_MAINT, SEL6( : : e 
SETBIT #XMSV—STS_RUNNING,- ; Indicate trib running 
COB_L DEVBEPEND (R9) : 
06 0100 BF A 30$: B1SW #X0-SEL6_M gCOn SEL6(R4) z Enable common buffers 
AG 64E AD OD MOVB CDB~B_MRB(RO) BSELG(R4) : Set buffer quota 
3a6 40 A3 MOVB IRPSQ~STATION(R3) ,BSEL3(R4) : Set trib address 
02 a6 O01 90 MOVB -V CONTROL ,BSEL2(R4) ; Give request, clear RDI 
SETBIT #XMSV_STS_ACTIVE,- ; Indicate trib active 
DB_L~DEVBEPEND(R9) : 
2 A8 B1SW #CD_TS_M_START,=- 3; Trib has been started 
0c CoB w_STS(R9) : 
38 AS) OFF BF) O90 MOVB #255, TRPSL_MEDIA(R3) 3 Set 8 parameters 
1 a 90 MOVB A! C_V_CAGT, IRP$B_XDFUNC(R3) ; Set new function request 
0094 C 6 of INSQUE (R3),UCBSQ_XD_INPUTO(RS) : Insert at front o 
F 1 BRW LOAD_PORT ; Request port again 


3¢ 
:; Define mode 


IN_INITC: : Give mode definition 
MOVB 


06 AG =602A6 C590 UCBSB_XD_MODE (RS) Bsgie (ne) 3; Set mode of operation 
02 a4 02 80 MOVW =f V_MODE DEF ,SEL2(R4) ; Give request, clear RDI 
38 A FO BF 89-90 MOVB #<15a%>7 IRPSC_MEDIA(R3) ; Set 4 parameters 
2103 06 90 MOVB #XD_FC_V_CHGC,IRPS$B_XDFUNC(R3) ; Set new function request 
0094 (5 63 E INSQUE (R3),UCBSQ_XD_INPUTO(RS) ; Insert at front of 
F 1 BRW LOAD_PORT ; Request port again 


3¢ 
; Stop tributary 
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-ENABL LSB 
IN_STOPT: 3; Stop tributary 
9o¢? 30 BSBW GET_CDB : Get CDB address 
03 50 5 BLBS RO, TO$ : Br if COB present 
0320 «31 8 5$ BRW REG_ABORT : Else, abort the request 
20 0C Ad «=6—03:tis«éSGG 9 10$: BBSC #CD_TS_V_BUFRET,CDB_W_STS(R9),20$ ; Br if buffers back 
05 €5 119 BBCC  #CD-TS~V~START,- ; Br if already halted 
1B OC Ad 9 CDB-w_STS(R9) ,20$ : ..trib halted itself 
06 A4 03 88 12$: MOVW S*#XD"-CI_V_HALT,SEL6(R4) 3; Halt the trib 
O03 AS «640A 9 MOVB [RPSQ“STATION(RS) ,BSEL3(R4) ; Set trib address 
02 A4 gt 90 A MOVB S“#XD_1_V_CONTROL ,BSEL2(R4) ; Set request, clear RDI 
06602800 F CA WA BICL § #XMSMSTS“ACTIVE 'XMSM_STS_RUNNING,- ; Indicate trib halted 
69 A be L-DEVBEPEND(R9) 3 aia 
34 B9 $3 of A 15$: INSQUE (R3),0CDB_Q_INFOUT+4(R9) ; Wait for buffer returns 
127A B BRW SET_OUTTIA ; Start output wait timer 
. 3: ..and return 
0g E5 B 20$: BBCC #CD_TS_V_CANCEL,=- ; Br if no CANCEL is pending 
27 OC A B CDB"w_STS(R9) 40S : 
52. 30 a9 3 MOVAB CoB Q"INFOUT(R9) ,R2 : Else, get address of queue 
7. ae ie MOVL R2,RO ; Save queue lListhead 


eee 


 VAXZVMS DMP11/DAV11 Device Driver Mer see=ISRs BO:8:68 PAN VES Bacco vos~00 Page 92, vt 


LOAD_PORT, Request CSR routine -SEP-1984 DRIVER. SRCIXDDRIVER.MAR; 1 ve 
ef g D C : 30$: MOVL (R2),R2 : Get next a? 
D C CMPL Re rb : End of q 
f 1 C BeQL 4=s«15$ : Br if yes - =*ingert STOP 
21 A2 93 CA CMPB ss #XD_LFC_V_CANCEL, IRPSB_XDFUNC(R2); acANce reques 
F 12 C BNEQ 30 : Br if not, ood Looking 
3 6 or D REMQUE (R2),R2 $ Ren remove CANCEL request 
0088 D INSQUE (R2),@UCBSQ_XD_POST+4(R5) + Post the CANCEL 
06 AG 8 MOVW  #XD_CI_V_NOOP, SEL6(R4) ; Release input port 
0206 01 8B MOVW #XD"I__CONTROL,SEL2(R4) ; Set request type, clear RDI 
oe BRB 158" ; Let the STOP assume the role 
0S £4 40$:  BBSC  #CD_TS_V_START,- ; Br if trib started again! 
B4 OC Ad CDB-W_STS(R9) , {28 : | 
7 IN_KILLT: ; Kill trib request 
09 E1 7 BBC #UCBSV_XD INITED. = : Br if device halted | 
A2 68 A UCoSu _BEVSTS(R ),5$ 3 .-and abort request 
06 AG 08 B0 MOVW S*#XD"CI_V_KILL,SEL6(R4) : Set to kill trib 
03 a4 «640 A383) 90 MOVB IRPSQ-STATION(RS) ,BSEL3(R4) : Set trib address | 
02 a4 01 90 MOVB S“#XD_1I_V_CONTROL, -BSEL2(R4) ; Give request, clear RDI 
31 ; Se REG_COn : Request complete 


:* j 
3; Stop controller 


~ STOPC: 
BBSS #UCBSV_XD_DTRCLR,UCBSW -DEVSTS(R5) 108 ; ; Br if OTR is clear 

CLRW Ue ; Clea r DTR 

MOVB oxo lV eet geet Seas? ; Set request type 

MOVW bf 0 CONTROL, SEL2(R4) : Give request, clear, RDI 
(By, Ocesa XD_ t DR tStRSD : Insert at front of Q 


13 68 AS) 04 E2 
04 A4 


10$: ne te #UCBSV_XD_DTRCLR,UCBSW peystscas) ; Clear DTR flag 


01 A464 40 8F 90 #XD_BSEL1—M_MCLR.BSEL1TR4 ; Master clear device 


REQ oo - Long branch to REQ_COM 


0290 =31 REQ_COM 3; Request complete 
F  cnenes controller parameters 
4 CHGC: 3 eyes controller sberenetors 
00 €1 BBC #UCBSV_XD_INITED,- ; Bri device not inited 
SF 68 A UCBSW_BEVSTS(R5) DEV INACTI 3 ..to device offline 
51 38 AS) 0 «608 «= (00téEA FS 0,48, irra MEDIAC(R3),R 3; Find next bit set 
CLRBIT R1.IRPSL_MEDIA(R3) : Indicate parameter set 
04 AG 02A4 C541 BD 1 OVW UCBs, XD- POLLPRM-<2*4>(R5)(R1),- a Set perencter value 
51 18 al ADDW3 ; oR1,SEL6(R4) : Set GSS address 
06 AS) 6=680 BFS BISB #XD_SEL6_M_WTSS,BSEL6(R4) ; Request write of GSS 
02 a4 01 8 MOVW  $*#RD_I_0 CONTROL, SEL2(R4) ; Set request, clear RDI 
A3 TSTB RPSL “REDTACRS) ; ALL done? 
4 1 BEQL 3; If EQL, 
0094 C5 § of 108 INSQUE (R3),UCB$Q_XD_INPUTQ(RS5) ; Insert a “Tront of Q 
FD7D 1 BRW LOAD_PORT ; Request port again 


Check if number of sync chars given 
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DMP11/DMV11 Device Driver 


= VAX/VMAS 16-SEP-1984 728: AX/VMS Macro V04-00 Page 1 
LOAD_PORT, Request CSR routine ets 8:98:65 DRIVER. SRCIXDDRIVER.MAR; 1 . (3) 
O2A7 € 95 1 208: ire UCBSB_XD_NMS(RS5) : Is quater of sync shore iven 
8 13 1387 ei REQ_COM1™ Or if not = ell done 
21 a3 1259 361 move #XD_FC_V_NUMSYNC, IRPS$B_ XDFUNC(R3S ; set new function” request 
. os : ? O12 BRB 10$~ 3 ve new request to device 
! : o18 : - Set number of sync chars 
125F 18 in. NUMS YNC 
E1 125F 61 BBC #UCBSV_xXD es 4 oe ; Br if device not inited 
21 68 A 1261 36 Y UCBSW_BEVSTS(R5) ,DEV_INACT1 i ..to device offline 
04 A4 O2A 90 1264 36 MOVB UCBSB-XD_NMS(R5) BSELS (RG) 3 Set parameter value 
AG 9B 8F 4 1 gh 6 ¢ MOVW #X0_SEL6-M wtssié sree ; Set GSS address + VORITE TSS 
02 a4 01 : 1270 36 MOVW  $*#RD_I_U_CONTROL, SELO(R4) : Set request, clear RDI 
0247 1 ! f 6 7] BRw REQ_COM 3; Request complete 
: ad é § % _Change tributary 
1277 36 8 si -ENABL LSB 
1277 3629 IN_CHGT: $ phenge conevet ter parameters 
gcp6 30 1277 3630 BSBW GET. COB ; Get CDB addres 
0 : 5 127A 3631 BLBS RO, T0$ ; Br if CoB oresent 
023131 zp 6 : BRW REG_ABORT : Else, abort the request 
00 £0 1280 3634 10$: BBS #CD_TS_V_ESTAB,=- ; Br if trib inited 
03 OC Ad 1 Be 635 COB=W_ sister 9) ,20$ F ite 
1 : 6 $ DEV_INACT1: 3 Long branch to inactive 
021A =—*31 : H+ ? 5 BRW DEV_INACT 3 o device inactive 
51 38a3 08 00 EA 1 H 639 20$: Ss pret mrt | oh 3 Find next bit set 
1 of 640 CLRBIT Rt atti EBIACR3) 3; Indicate parameter set 
04 a4 50 Anu BO 1293 3641 Ovw D6_W POCLPRMCRSDERT,SELG(R4) : Set parameter value 
06 AG 51 1299 one ADDW3 $24; “RT. SEL6(R4) ; Set TSS address 
1 64 BISB SEL6 M_WTSS,BSEL6(R4) 3; Request write of TSS 
1 644 MOVB ha WU (R$) ,BSEL3(R4) ; Set trib address 
1 645 MOVB S$“*#XD_1_ V_CONTROL, BSEL2(R4) 3; Set request, clear RDI 
1 o66 TSTB IRPSL “HEDTACRS) ; ALL done? 
1 64 EQL : If EQL. yes 
1 268 30$: INSQUE (R3), ucesa. XD_INPUTQ(R5) ; Insert at front of Q 
} cts ew LOAD “PORT ; Request port again 
! $3) : Set new polling state - if needed else unlatch poll state 
1 $38 40s:  MOVB #xd -FC_V_POLSTAT, IRPSB_XDFUNC(R3) ; Set new request 
1 O28 ; Ask for port again 
: 1 -DSABL LSB 
' 637 i Set new Poll State 
1 $36 in. POLSTAT: 
1 060 BSBW GET oe CoB ; Get CDB address 
1 66 BLBS ; Br if CDB present 
66¢ BRW ay ABORT : Tse. abort the request 
1 664 10$ BBC #CD_TS_V_ESTAB,- ; Br if trib NOT inited 
' ret CoB _W ss¥stagy bEV_ INACT1 : ane 
1 66 5 SDISPATCH CDB_B_POL(R9), TYPE=B,<- ; Dispatch on polling state 


m 8 | 
= VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 00:28: AX/VMS Macro v04-00 Pa xt 
LOAD_PORT, Request CSR routine oe et 9 90:48:68 DRIVER. SRCIXDORIVER.MAR; 1 aad (By ve 
CD 366 <NMASC_CIRPST_AUT i $>,- 3 AUTOMATIC = unlatch 
Cd 08 <NMASC_CIRPST_ACT $>,- 3 ACTIVE = Latch 
CD 36 9 <NMASC_CIRPST_INA : $>,- 3 INACTIVE = Latch 
CD 367 <NMASC_CIRPST_DIE $>,- 3; DYING = Late 
se ore <NMASC_CIRPST_DED 60$>> 3; DEAD = Latch 
DC 3674 3; ALL others, then 
4AG B46 DC 3675 208: CLRW SEL4(R4) ; Clear SEL4 
06 AS ©1000 BF «BO DF 076 MOVW #XD_SEL6_M_UPOL ,SEL6(R4) 3; Unlatch polling state 
18 =2«O1 + of BRB 80$ ; Continue 
04 ae %% H 4 30$: chee L4(R4) ; Latch at ACTIVE 
04 As O19 IZEC $681 40S: MOVE $° 1 ,BSEL4(R4) ; Latch at INACTIVE | 
04 A4 : 9 : ? $ 50$: se “#2,BSEL4(R4) : Latch at DYING 
04 A4 03 90 12F 5 60$:  MOVB $*#3,BSEL4(R4) t Latch at DEAD 
06 AS = 2000 BF BD f $ 0$: MOVW #XD_SEL6_M_LPOL,SEL6(R4) ; Latch the poll state | 
03 AC «640 A5 = 90 0 688 80$: MOVB IRP$Q_STATION(R3) ,BSEL3(R4) ; Set trib address 
02 A4 01 90 0 689 MOVB S*#XD_I_V_CONTROL ,BSEL2(R4) ; Set request, clear RDI 
0180 «(31 230 , BRW REQ_COM ; Request complete | 


692 : Read modem request 


694 IN_RDMODEM: Read modem register 


00 =«6€€0 695 BBS #UCBSV_XD_INITED,- ; Br if device inited 
03 68 AS 69 UCB$W_BEVSTS(R5) ,10$ : 
018c)—Ofs«C531 044 BRW DEV_IRACT : Else, device inactive | 
10 60 99 108: MOVW S*#XD_CI_V wets gt tee ; Set to read modem register 
02 AG 01 0 MOVW S*#xD-1_V0_CONTROL,SEL2(R4) ; Set request, clear ROI 
63 E INSQUE (R3),GUCBSO_XD_INFOUT+4(R5) ; Insert request at end of Q 
10a 31 BRw SET_OUTTIM ; Set output wait timer 
. 3 ..and return 
3 Transmit request 
-ENABL LSB | 
IN_XMIT: ; Transmit request 
gc 38 BSBW GET_CDB ; Get CDB address 
0 3 BLBS RO,208 ; Br if okay 
01 1 10$: BRW REG_ABORT ; And abort the request 


20$: BBC #XMSV.STS ACT 


IVE,- ; Br if trib not active 
B_L~DEVBEPEND(R9) , 10$ : 
(R3) , SEL 
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o | 

F9 C : 
38 B0 MOVW IRPSL-MEDIA 4(R4) : Load buffer address 
4 90 MOVB  IRPSQ"STATION(RS) ,BSEL3(R4) : Set trib address | 
SDISPATCH UCB$B_DEVTYPE (RS) , TYPE=B,- | 

<- function action 

<DTS_DMV11, 40$>,- ; DMV-11 

<DTS“DMP11, 60$>.- > DMP=11 | 


ee mm a ee ed dd td = = od od 


RNIN) 3 SS SS SS BOO OOOO 


FAN" O OODNO NEW $$ O OBNOUE wi O 


SS 


3D AS = 90 40$: MOVB IRPSL_MEDIA+5(R3) ,BSEL6(R4) : eee 


n 8 
= VAX/VMS DMP11/DMV11 Device Driver es at 4 00:48:68 AX/VMS Macro V04-00 Page § 
LOAD_PORT, Request CSR routine -SEP-1984 219: DRIVER. SRCIXDDRIVER.MAR; 1 < 
08 AG) =A AS 88 1365 3725 MOVW IRPSL_MEDIA+2(R3) ,SEL10(R4) 3 _ and character count | 
0 156A 37 § MOVB " B 1 V_XMIT!XD_BSEL2_M_Q22,- ; Set request, clear RDI 
02 AS 136C 37 BseL TRE) 
09 = =1i1 } f S BRS 3; Continue in common code 
06 AG) 3A AB 88 137 750 60S: MOVW IRPSL_MEDIA+2(R3) ,SEL6(R4) ; _ and character count 
02 a6 04 , u 1 MOVB S*#XD"1_V_XMIT,BSEL2(R4) : Set request, clear RDI 
2c B89 = s 463 OF 1379 37 : 90$: INSQUE (R3),@CDB_Q_XMT_PND+4(R9) ; Insert at end of pending Q 
0 } 4 f ¢ a RSB ; 
ze f 6 : Receive request 
137E 37 8 IN_RECV: ; Bump receive buffer quota 
gecr 30 1 rt 7 BSBW GET £06 ; Get CDB address 
AB 50 €9 1 740 BLBC ,10$ ; Br if error 
0B €1 1384 3741 BBC #XMSV_STS_ACTIVE,- ; Br if trib not active 
AG 69 1 § reg CDOB_L- DEVBEPEND(R9) , 108 é 
ASO 90 1 74 MOVB S*#T, BSEL4(R4) 3; Else, bump quota by 1 buffer 
06 AS 0100 BF B80 1 744 MOVW #xXD_SEL6_M_ECOM, SEL6(R4) ; Set request type 
03 a6 4003 90 1 36 745 MOVB  IRPSQ_STATION(RS) ,BSEL3(R4) ; Set trib address 
02 a4 01 90 139 ree MOVB S“#XD_1_V_CONTROL ,BSEL2(R4) ; Set request, clear RDI 
0120 31 1398 374 RW REQ_COM 
a ea. om 
133 £30 + Read selected tss address 
139 138 IN_RDTSS: ; Read tss address 
OBAF 30 139€ 375 BSBW GET_COB ; Get COB address 
03 50 S 13A1 754 BLBS RO, TOS :; Br if got it 
010A 1 ; 7 P32 BRW REG_ABORT ; Else, abort the request 
06 AS = =63E AS O90 s«*13A7 FS 10$: MOVB IRPS$L_MEDIA+6(R3) ,BSEL6(R4) ; Set tss address 
06 A4 20 88 13AC 38 BISB #XD_SEL6_M_RTSS,BSEL6(R4) ; Read the tss address 
11 ' B £28 ' BRB IN_READT ; Join common code 
138 7! : Read tributary counters 
138 § . .ENABL LSB 
1 764 IN_RDTERR: ; Read er router? counters 
7E 20 B60 138 765 MOVW S“#XD_SEL6_M_RTSS,-(SP> ; Set to read TSS 
05 11 «+138 £66 BRB 10$ : Continue 
et 8 
, 789 : Read and clear tributary counters 
1387 3771 IN_RCTERR: ; Read and clear trib counters 
7E 0040 8F B80 : 4 ak MOVW #XD_SEL6_M_RCTS,-(SP) 3; Set to read and clear TSS 
geri 30 138C 774 10$: BSBW eet £06 ; Get CDB address 
03 50 3 13BF 3775 BLBS RO,15$ ; Br if got one 
OOEC 1 : : ore BRw REG_ABORT ; Else, abort the request 
08 EO 13C ore 15$: BBS #CD_TS_V_ESTAB,- ; Br if trib established 
03 OC A 13¢7 377 CDB"w_STS(R9) , 208 ; 
00D3 = 31 ' cA 0 BRW DEV-IRACT_SP 7 Else, device inactive 


8 9 | | 
XDDRIVER = VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 00:28: AX/VMS Macro v04-00 Pa Xl 
yaa tts LOAD_PORT, Request CSR routine Sets 90:48:60 DRIVER. SRCIXDDRIVER.MAR; 1 - (8) | iy 


51 8 A3 98 EA 7 ¢ 20S: FFS #0,48, 1RPSL_MEDIA(R3),R1 ; Get next counter index 
6 AG 1 Al ADDW3 #8,R1,SEL6(R4) : Calculate TSS address — 
06 AS) «BEC 4 BIS (SP) +, SELO(R4) : Set read mode | 


8 
-DSABL LSB 


5 
§ IN_READT: ; Finish read tss request 
MOV 


RT 
13¢ 
13D 7 
13D 7 
130e 34 
03 AS) «40 AB 8 130€ 37 IRPSQ_STATION(R3) ,BSEL3(R4) ; Set tributary address 
Fi AS 6010s 90s«sd13E1 37 } MOVB S*#XD_1_V_CONTROL ,BSEL2(R4) ; Set request, clear RDI 
489 63 OF 1 ED 7 INSQUE (R3),@CDB-Q_INFOUT+4(R9) ; Insert request at end of Q 
1044 Eg £90 BRW SET_OUTTIA ; Start output wait timer 
13SEC 138 3+ 
! 43 at ; Write modem request 
13SEC 3795 IN_WTMODEM: ; Write modem register 
06 A4 = 112 «190 «13EC re MOVB $*#XD_C1_V_WTMODEM,BSEL6(R4) ; Write modem request | 
046 A4 38 AS 80 1 4 79 MOVW IRPSL_-MEDIA(CR3) ,SEL4(R4) ; Set new modem values | 
02 A401 0 13F 798 MOVW S*#XD_1_V_CONTROL, SEL2(R4) ; Set request, clear &Dl 
00C2 13-9 3799 aRwW REQ_COM ; Request complete 
i3FC 3800 3; «and return 
13FC 3801 ;+ , 
13FC ate ; Halt trib 
13FC + : 
13FC 04 ; On a SYSSCANCEL request we will halt the tributary and then re-start 
13FC 3805 ; the tributary. This will get back all 1/0 from the hardware, but still 
: 4: B07 : allow the user to continue using the tributary. 
13FC 08 -ENABL LSB 
13FC 3809 IN_CANCEL: ; Halt trib = CANCEL request 
983) 30 ieee 810 BSBW GET_COB ; Get CDB address | 
03 50 fs 13FF 11 BLBS RO, 20$ ; Br if CDB found 
OoAC 31 1408 1 10$: BRW REG_ABORT ; Else, abort the request 
16 0C AD «(03 «E4 «61405 «3814 208:  BBSC #CD_TS_V_BUFRET,CDB_W_STS(R9),30$ ; Br if buffers returned 
05 €1 140A 3815 BBC #CD_TS_V_START,= § Gr if already halted 
F3 0C A9 140C 3816 CDOB-w_STS(R9), 10$ 3 «must be second request 
47 10 140F 3817 BSBB 1008 ; Else, perform halt on trib 
20 AA 1411 518 BICW #CD_TS_M_START,=- ; Indicate trib has 
OC Ad ie 19 COB_W_STS{R9) ; _ been halted 
0c Ad «60060 ABC a5 BISW #CD_TS_M_CANCEL,CDB_W_STS(R9) ; Indicate that we are waiting 
1419 1 :; for SCANCEL to complete 
34 B9 63 oF 1419 § INSQUE (R3),@CDB_Q_INFOUT+4(R9) ; Wait for buffer returns 
1010 1 128 z BRW SET_OUTTIA ; Start output wait timer 
oc 14 9 5 30$:  BICW  #CD_TS_M_CANCEL!CD_TS_M_BUFRET,-; Indicate that SCANCEL 
A 14 § COB" W_STS(R9) ; complete 
06 AG 3 1424 MOVW S*#RD-C1_V_ISTRT,SEL6(R4) ; ISTRT the trib 
08 69 00 £1 1428 8 BBC #XMSV~CHR_MOP,CDB_L_DEVDEPEND(R9S 408 ; Br if not MOP mode 
06 Ad 04 14 9 MOVW  S*#XD"CI_Q_MAINT, SELG(R ; Else, MOP mode 
14 0 SETBIT #XMSV~STS_ RUNNING, - : Indicate trib running 
14 1 CDB_L DEVBEPEND(R9) ; 
AS 0100 BF AB 1434 § 40$: BISW #XD"SEL6_M 4A SEL6(R4) ; Enable common buffers 
04 Ad 4 A9 90 143A MOVB CDB-B_MRB(R9) BS L4(R4) : Set buffer quota 
03 AS 40 A3 90 1435F 4 MOVB IRPSQ"STATION(R ) ,BSEL3(R4) ; Set trib address 
02 a4 O01 9 1278 5 MOVB S“#XD_I_V_CONTROL ,BSEL2(R4) ; Give request, clear RDI 
1448 $ SETBIT #XM$V_STS_ACTIVE,=- : Indicate trib active 
144 & CDB_L~DEVBEPEND (R9) : 
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2 AB 144¢ 39 BISW #CD_TS_M_START,= ; set Internal flag also 
0¢ A 144 40 COB-w_STS(R9) : 
068 31 14 41 608: BRW REQ" COM ; Request complete 
14 tg 3; ..and return 
14 45 IN_HALTT: ; Halt trib = no status checks 
03 10 14 44 BSB 100$ ; Perform halt on trib 
0066 831 1° $2 BRW REQ_COM ; Request complete 
09 El 14 23 100$: BBC #UCBSV_XD bs A 4 : Br if device halted 
54 68 A 145A 48 UCBSW_BEVSTS(R5) ,REQ_ABORT ; ..and abort the request | 
06 a4 =O 38 145D 4 MOVB $*#XD_CI_V_HALT ,BSELB(R4) ; Halt trib request 
03 AS 640A 90 1461 29 MOVB [RPSQ"STATION(RS) .BSEL3(R4) ; Set trib address 
02 01 ay 1466 MOVB S*#XD_I_V_CONTROL ,SEL2(R4) ; Set request, clear RDI 
05 146A 26 RSB ; Return to caller 
be $27 ‘ -DSABL LSB 
1468 a : Read selected gss address | 
1468 2 IN_RDGSS: ; Read gss address | 
AG 3E Ad 90 Pe 858 MOVB IRPSL_MEDIA+6(R3) ,BSEL6(R4) ; Set oss address 
06 AS «86200 «688 «O147 859 B1SB S“#XD_SEL6_M_RTSS,BSEL6(R4) ; Request read of gss address 
1€ 11 4a 5} +e “ BRB IN_READG 3 Finish read gss | 
are B66 > Read global counters 
1476 bes ; -ENABL LSB | 
1476 65 IN_RDGERR: ; Read global counters 
7E 20 BO 1476 508 MOVW S“#XD_SEL6_M_RTSS,=-(SP) ; Set to read GSS 
05 11 1479 386 BRB 10$ ; Continue 
1698 3869 :+ | 
en 570 > Read and clear global counters | 
1478 ere IN_RCGERR: ; Read global counters | 
0040 8F 860 es: 18 MOVW #XD_SEL6_M_RCTS,-(SP) ; Set to read and clear GSS 
00 €1 148 ers 10S: BBC #UCBSV_XD_INITED,- ; Br if device not inited 
1B 68 AS 1482 A UCBSW_BEVSTS(R5) ,.DEV_INACT_SP ; ..to device inactive 
08 00 EA 148 87 FFS #0, #87 IRPSL_MEDIA(R3),R1 ; Get next counter index 
51 O08 Al 1488 1h ADDW3 #8,R1,SEL6(R4) ; Calculate GSS address 
AS 6 BE AB 1490 19 Is (SB) +, SELO(RA) : Set read mode | 
1494 81 IN_READG: ; Finish read gss request 
02 a4 «#2(01—siB0 1338 8 MOV S*#XD_1_V_CONTROL ,SEL2(R4) : Set request. clear RDI 
00B0 DS _ = 63 oF 1498 ge INSQUE (R3),@UCBS$Q_XD_INFOUT+4(R5) > Insert request at end of Q 
OF90 31 «1490 5 BRW SET_OUTTIM : Start output wait timer 
a 36 3 ..and return 
is as > Device inactive 
146A $0 beV_INACT_SP: ; Device inactive and pop stack 
8E B65 14A 91 3 TSTw (SP)+ ; Pop one word from stac 
14A 3 DEV_INACT: ; Device inactive 
06 A4 0 8B 12 3% howe *S-bx5 (Tey NOOR, SELG (RG) ; Set noop request 
02 A4 84 0 1406 95 MOV S*#XD-1_0_CONTROL, SEL2(R4) : Set request type, clear RDI 
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MOVW e338 DEVINACT,RO 
BRB REQ_COM_ERR 
S  Cenptete request 


izo ABORT: 
LS woven she input CSR's 


OVW #XD_ cl 9 toe SEL6(RG 
MOVW = S*#XD71 NTROL,S SEL2¢ be) 
MOVW #SS$_Kp oy re 
BRB REQ_COM_E Pe 
REQ_COM: 
MOVW  $*#SS$_NORMAL,RO 
REQ_COM_ERR: 
RPSu CSTATUS(R3) 
INSQUE RO! uCBS0_x XD_POST+4(R5) 
BRW SCHEOTF 


~3Ep198e bo:19:00 
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; Set error return code 
: Complete request 


Abort request 


Set noop request 

Set request type, clear RDI 
Set status return 

Complete request in error 


; Request complete 


Return success 


Set completion status 
Insert IRP on completion Q 
Schedule a fork process 
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RDI_LINTRPT = CSR Ready Input Interrupt Service Routine 

Functional description: 

This routine is called when an interrupt occurs to give an input waiting 


request to the controller. Prior to execution of this routine, a request 
was made to LOAD_PORT, but the port was unavailable at that time. 


Inputs: 
SLEEP) = HESS Mal deagsaress 
IPL = DIPL 

Outputs: 


The request is loaded and if there are more requests pending, 
phey ore pcan until there are no more. Finally, the interrupt 
s dismissed. 
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940 
941 RDI_INTRPT: 
54 9E 00 4 MOVL a(SP)+,R4 ; Get 108 address 
59 DD 94 PUSHL 9 ; Save R9 
55 18 A&4 00 944 MOVL IDBSL_UCBLST(R4) ,R5 ; Get UCB address 
54 64 DO 945 MOVL (RG) RG ; Get CSR address 
64 81 8F 8A 946 BICB #XD_BSELO_M_IEI!XD_BSELO_M_RQI,(R4) ; Clear input request flags 
—1 947 BBC #UCB$V_xD"1 Ls 3 Exit if controller not inited 
32 68 AS 948 UCB$W_BEVSTS(R5)  INTERR : 
02A5 (5 94 349 CLRB  =——s UCBS$BXD_INTIM(R5) ; Reset input wait timer 
th 3; Find COB address 
53 0094 05 OF 935 REMQUE @UCB$Q_XD_INPUTQ(RS5) ,R3 ; Get next request on input Q 
r 2 a |) 954 V INTERR ; Br if none - error 
0094 cS 63 3 D 3955 INSQUE (R3),UCB$Q_XD_INPUTQ(R5) ; Re-insert packet on Q 
FB2A 0 228 BSBW LOAD_PORT_AVAIL ; Load CSRs 
53 0094 D5 OF $36 10$: REMQUE @UCBSQ_XD_INPUTQ(R5),R3 : Get next request on input Q 
08 1D A 395 BVS N T ; Br if none - exit 
00% (5 6 oF C 3960 INSQUE (R3),UCB$Q_XD_INPUTQ(RS) : Re-insert packet on Q 
FACC 1 961 BSBW LOAD_PORT 3; Load CSRs ; 
EE 50 =«€EB ; 1s BLBS RO, 10$ : Br if port was available 
7 3964 ; Exit interrupt 
7 3965 ; 
7 3966 INTEXIT: 3; Exit interrupt 
9 8ED0 7 396 POPL R9 ; Restore R9 _ 
50 E D A 396 mova te ; Restore registers 
ef E 7D p 9 MOVaQ (SP)+,R : 
4 E 7D 970 MOVQ (SP)+,R4 : 
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REI ; Return from interrupt. . 


; An input interrupt occurred with nothing on input queue. Set a 
: request to device and hope a mode definition has been given previeusty. 


iNTERR: 
MOVB S*#xXD_CI_V naa ab geste 6(R4 ; Set noop request 
MOVW $*#xD-1_0_CON EL2(R 4) ; Set request type, clear RDI 
BR INTEX RIT" ; Exit the interrupt 


6 9 
upon yer = VAX/VMS DMP11/DMV11 Device Driver 1 ~$E0= 1386 00:48:68 AX/VMS Macro v04-00 Page 99 
RDO_INTRPT, CSR Ready Output Interrupt -SEP-1984 00:19: DRIVER. SRCIXDDRIVER.MAR; 1 (37) 
! i ; -SBTTL RDO_INTRPT, CSR Ready Output Interrupt Service Routine 
151 985 ;++ 
: if , : ; RDO_LINTRPT = CSR Ready Output Interrupt Service Routine 
\ 3 , § 3 Functional description: 
1S1E 39 3 3; This routine is called when the DMP11 device gegerates an output 
1S1E 3989 ; saterrugt after setting the RDO bit in the BSEL2. This means that 
1315 990 ; the device has some type of information for the driver, solicited 
151E 3991 ; or otherwise. This may be buffers being returned from transmits 
151E 3992 ; or receives, error counters or polling parameters being read, or 
151E 3995 ; error conditions. 
ISIE 3994 ; 
1S1E 3995 ; 
151E 3996 ; Inputs: 
ISIE 3997 ; 
151E 3998 ; 0O(SP) = address of IDB address 
ISIE 999 ; O4(SP) = 1C(SP) = RO = RS 
151E 4000 ; 
151E $30) : IPL = DIPL 
151E 40 ¢ 3 
151E 4005 ; Outputs: 
151E 4004 ; 
151E 4005 ; Interrupt is dismissed. 
151E 4006 ; 
1S51E 4007 ;-- 
151E 4008 
BIE 4009 RDO_INTRPT: 
54 9€ 00 151E 4010 MOVL a(SP)+,R4 ; Get IDB address 
5 8 AG DO 1521 4011 MOVL IDBSL , peiniasnad ane 3; Get UCB address 
52 64 00 1525 sng VL (R4),R : Get CSR address 
59 DD 1528 401 PUSHL R : Save RY 
00 £0 152A ret BS #UCBSV_XD et os ; Br if inited 
07 68 AS 152C 4015 ucB$w_BevSTS(r5),5$ : 
02 A2 80 8F BA 152F 4016 3$: BICB #XD_BSEL2_M_RDO,BSEL2(R2) ; Else, release CSRs 
D1. Oss 12 : ret SRB INTEXIT 3 And exit interrupt 
53 02 4 BO 1536 4019 5$: MOVW SgLZ(R2) RS : Get SEL2 in R3 
51 5 153A 4020 MOVL R3,R1 ; Save type code 
so 9 1530 4021 ASHL #16,R3,R3 : Shift to high word of R3 
53 62)«BO C1541 «40 : MOVW  SELO(RE) R3 : Get SELO in low 
1544 40 : word of R35 
54 06 ag 8 1308 1 4 MOVW StL6(82) R4 3; Get SEL6 in high 
54 1 1548 4025 ASHL #16,R4,R4 : word of R4 
54° 04 A2 BO 154C 40 6 MOVW  SEL4(R2),R4 > Get SEL4 in low 
1550 40 ; word of R4 
1550 4029 PUSHQ R6 ; Save registers 
ores 30 1553 40350 BSBW XD_BUF _JNX ; Get the journal buffer 
09 5 3 1228 $8 1 BLBC A ; Br if error 
6 9 0 1559 4 MOVB oN CSROUT, (R6)+ 3 Set journal type = CSROUT 
6 3 pO 155¢ 4 MOVL R3,(R6)+ ; Store the CSRs 
6 4 pO 155F 4 MOVL R4,(R6)+ 3 ae 
1268 ? ; 7$: POPQ R6 ; Restore registers 
50 O03 A2 90 1565 4 : MOVB BSEL3(R2),RO ; Get trib address 
59 D4 1569 4 CLRL R9 : Assume no CDB 
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0 95 1568 4040 TSTB R $ ag F #0? 
} 156D 4041 BEQL 10$ é t xee o CDB 
09 1 gf 4 tg BSBW FIND TRIB : Oi ad cbB (ren trib address 
BA 5 e9 1 g 404 BLBC : or if trib not found - exit 
51 FFFFFFF8 BF CA 1575 4044 10$:  BICL #*Cexp D_BSEL2_M_TYPE>, ar all but type code 
157C 4045 CASE 1 TYPES B,<O0OT"RCV aor CTL,OUT rir: OUT. RCV 
137 Z "os ; but JXMIT, $$,0uT_ XMIiT ERR, OUT_XMIT _ERR> 7 Case on “the type code 
12 40¢8 : Process receives completed by the DMP11. After the receive buffer is 
1590 4049 ; posted for completion, any receive buffers that are need are given to 
1330 4031 ;_the device. 
1590 4 3 : -ENABL LSB 
1590 $82 OUT_RCV: ; Process recetes _seamtote 
51 3 b0 1338 4054 VL R2,R1 3; Save CSR addre 
52 OOM D5 OF 1393 4055 REMOUE ayCeso_ XD_RCV_PND(R5S) ,R2 ; Get oldest pe pending receive | 
3 Error 
54 et HH CA 159A 4089 BICL #*xC0000000,R4 ; Clear BA16 ond BA17 pres BA/CC 
0c 4 B61 15A1 4058 CMPW R4,RCV_L _BACC(R2) :; Buffer address match 
08 13 1545 4059 EQ. ~=s«-208 : Br if yes = ok 
OOA4 C5 9 of 15A7 4060 10$: INSQUE (R2), yeese. XD_RCV_PND(RS) : Requeuve the receive buffer 
FFS 1 15AC 4061 15$: RW INTEXIT ; Exit the interrupt 
50 0B A2 9A 15AF 1806 208: MOVZBL RCV_B_MAPSLOT(R2) ,RO :; Get mapping slot number 
€E 0130 cS) «650 —=Sso#ESS 1383 $362 BCC RO,OCBSB_XD_RCV _MAP(RS), 10$ : Mark as free - error if not 
1389 4065 SDISPATCH UCBSB. DEVTYPE(RS) « TYPE= =B,- | 
on 
1589 4067 eDTs DMVII, 23$>05. : DMV-11 | 
15B9 4068 <DT$_DMP11, 26$>,- 3; DMP-11 
13pe e090 , | 
OF A2 O08 Al BO 15DC 4071 238: MOVW SEL10(R1),RCV_L_BACC+2(R2) ; Save byte count for recv 
046 «11 13E! $378 BRB 30$ : Continue in common code 
| 
OC A2 54 ~ «2200 1363 rye 268: MOVL R4,RCV_L_BACC(R2) ; Save byte count 
02 41 80 SF 8A 157 4076 30S: BICB #xD_BSEL2 M RDO. SELZCRID ; Release CSRs | 
51 OF A2 B80 15€C 4077 MOVW = RCV L -BACT#2(R +2(R25R : Get byte count 
15FO 4078 CPUDISP <<790;37$>,- 
15F0 4079 780,37$>,- 
18 i Bae | 
19F0 1086 <UV1, 33$>> 
50 0114 C540 dO 1804 4 4 33$: MOVL ures ” srty _VA(R5)CROI,RO ; Get buffer VA 
3C By 1610 4085 PUSHR yi "EROS R 7R5> ; Save registers 
48 A260 31 8 1812 40 6 MOVC3 j 4 f gDATACR2d : Copy the data | 
C BA 1617 408 POPR rer te RS. 3; Restore registers 
53 53 08 18 EF 1619 4088 37$: EXTZV : Get trib address 
96 13° 161 3 9 BEQL : Br if trib zero???? 
OC A2 90 16 5 4090 MOVB age RCV_L_BACC(R2) ; Return trib address 
590 O11 16 4 4091 BRB 80$ : Complete the rcv in fork 
1 ? ? $8 : Bogus trib address 
1626 4095 45$: —_ INSQUE (R2) « ucasa _XD_RCV_BUF (R5) ; Requeue buffer to device 
162B 4096 BRw ; Exit the interrupt 
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162E 4097 i+ 
1° ; 4098 | Process a transmit buffer complete. 
162E 4100 bur _XMIT: ; Process xmit complete 
02 A280 oF BA 16 4101 BICB #XD_BSEL2_M_RDO,SEL2(R2) ; Release CSRs : 
9 be 16 4) ¢ TSTL R9 ; CDB address given? 
17 13 16 41 BEQL 50$ ; Br if not - exit interrupt 
52.8 4 4 1 i ¢ : eae @CDB_Q_XMT_PND(R9) ,R2 : = — = —_ for trib 
: Error 
54  ¢0000000 4 CA 163D £138 BICL #*xC0000000,R ; Clear BAIG. ond BA17 free BA/CC | 
38 A2 33 a} 1e28 2 sree Bog ARPSL. BeOTACR2) 3 But ter address match | 
; Br es - 0 
28 ADs «62 oF 164A 4109 INSQUE (R2), COB. Q_XMT_PND(R9) 3; Else, Peqyeue the request 
FEB6 1 196s 2139 50$: BRW INTEXIT ; Exit the interrupt 
38 A2 54 DO 1651 4112 60$:  MOVL 4, IRPSL_I0ST1(R2) ; Save byte count | 
42 A2 01 4BO 1655 4118 MOVW sess NORMAL ,IRP$W_CSTATUS(R2) ; Set success 
244~—=COis1 oh aise BRB 3 Queue the xmit for completion 
1658 4116 OUT_XMIT_ERR: ; Xmit not sent | 
02 A2 80 8F 8A 1658 4117 6icB #XD_BSEL2_M_RDO,SEL2(R2) : Release CSRs 
59 DS 1660 4118 TSTL R9 ; CDB address present 
EA 13 1662 4119 BEQL ; Br if not - exit 
52 2889 OF 1664 4120 REMQUE @CDB_Q_XMT_PND(R9) ,R2 ; Get next xmit pending 
E46 1D 1668 4121 BVS 50$ ; Br if none 
OF 11 1908 re ¢ BRB 70$ HY 
166C 4124 OUT_RCV_ERR: ; Receive buffer unused 
2 80 8F 8A 166C c182 BICB #XD_BSEL2_M ng B EL2(R2) 3; Release CSRs 
52. O0A4 3 oF + 4 $158 ae @UCB$Q_XD_RCV_PND(R5) ,R2 : get oldest pending receive 
; Br none 
OC A2 94 1678 4128 CLRB RCV_L_BACC(R2) ; Set receive error return 
42 A2. 2C B80 Jere $ , 708: MOVW #SS$_ABORT, IRP$W_CSTATUS(R2) 3; Set error return 
0088 D5 6¢ OE 167F 4131 80S: INSQUE (R2),@UCB$Q_XD_POST+4(R5) ; Queue request for posting | 
0 12 1684 41 ¢ BNEQ 90$ : Br if not first entry 
0218 0 1686 413 BSBW SCHED_FORKC ; Schedule fork process 
F883 0 1689 4134 90S: BSBW START_RECEIVE 3; Start any receives 
FE78 31 168C 4135 BRW INTEXIT ; Exit interrupt 
168F 41 $ -DSABL LSB 
1 a 
168F 1139 : This routine is called when the device interrupts with a INFORMATION OUT 
168F 4140 ; command be ton returned to the driver. This command results from an 
168F 4141 ; associated CONTROL IN command, requesting some information from the device. 
168F BP ; Since the information may be of some global type such 9s global error 
168F 4145 ; counters, or the modem register contents; the P11 device ney not return 
168F 4144 ; a tributary address on OU +4 ' this case all global requests are 
168F 4145 ; assumed to be processed in a FIFO order and the global requests are 
188 2123 3 queued to the UCB INFO OUT QUEUE (and not the CDB INFO OUT QUEUE). 
168F 4148 OUT_INFO: ; Process information out 
52 "Sen ose” of an 1oeF $133 Bice ox0 8 B EL? a RDO, SEL2(R2) : poreeee CSRs 
60 8F 55 1699 $13! BITB xb. séLé. -M_RTSS!XD_SEL6_M_RCTS>, rng: ; owe tenis a read request? | 
» be 12 169D 41 ¢ BNEQ 5$ : Br if yes 
8 91 169F 415 CMPB #8,R2 5 ues it a read modem request? | 


BEQL NOOP ; Br ifn 
SETBIT #XMSV_ERR TRIB, CDB_L_DEVDEPEND(R9) ; Indicate trib error 
7 BRB FORCE_HALT : Force trib to shutdown 


FORCE _HALT: ; Force trib to shutdown 
BICW #CD_TS_M_START,CDB_W_STS(R9) ; Clear started flag 


J 9 
XDDRIVER - VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 :28: AX/VMS Macro Vv04-00 Page 
YOen O05 RDO_INTRPT, CSR Ready Output Interrupt eo tS y 48:65 DRIVER. SRCIXDDRIVER.MAR; 1 . (3) 
12 16A2 4154 BNEQ 108 : Br if not | 
018 36 16A4 4155 5$ BSBW OUT_STATUS ; Else, process status 
FE5D 1 ey 2} § BRW INTEXIT 3; Exit interrupt 
52 1 91 16AA 41 8 10$: CMPB #16,R2 ; Is it a BUFFER RETURN COMPLETE? 
12 16AD 415 BNEQ 30$ ; Br if not - exit interrupt 
DS 16AF 4160 TSTL Rg ; CDB address found? 
—E 13 1681 4161 BEQL 30$ : Br if no = exit interrupt 
198 £126 SETBIT #CD_TS_V_BUFRET,CDB_W_STS(R9) ; Note buffers returned 
198 rte: ; We will scan the information out queue for the stop request 
53 30 Ad oe 168 ret ¢ MOVAB CDB_Q_INFOUT(R9) ,R3 ; Get address 
29 5 DO 16BC 416 MOVL R3,R0 : Save queue Listhead address 
5 g DO 16BF 4168 20$:  $MOVL (R$),R3 : Get next IRP | 
50 D1 16ce 4169 CMPL = R3,, RO : End of queue? | 
1A 613 «©16C5 «44170 BEQL 30 :; Br if yes - exit interrupt 
21A5 10 91 16€7 4171 CMPB #XD_FC_V_CANCEL, IRPSB_XDFUNC(R3) ; Is this a CANCEL request? 
06 13 16CB tiz¢ BEQL ; Br if yes - complete it 
21 A3 O02 91 16CD 417 CMPB #XD_FC_V_STOPT, IRPSB_XDFUNC(R3) ; Is this the stop request? 
Fe 12 1601 4174 BNEQ :; Br if no - keep Looking 
53 6 OF 1603 4175 25$: REMQUE IRPS$L_IOQFL(R3),R3 ; Else, get the IRP 
0057 30 1606 4176 BSBW SET_O 3; Start output wait timer 
0094 C5 63 oF 16D9 4177 INSQUE (R3),UCB$Q_XD_INPUTQ(R5) : Insert stop at front of Q 
FBEF 0 16DE 4178 BSBW OAD_PORT 3; Give request to device 
FE23 31 16€1 4179 30S: BRW INTERIT : Else, exit interrupt 
16E4 4180 
16E4 4181 ;+ 
16E4 2186 ; This routine is called when the DMP11 device interrupts with a CONTROL 
16E4 41835 ; OUT command. Some type of error has occurred and the driver must notify 
ieee ret T: 3; the user and also must take any appropriate steps to handle the error. | 
1664 4186 duT_CTL: ; Process control out 
02 A2 80 8F BA 16€4 4187 BICB #XD_BSEL2_M_RDO,SEL2(R2) 3; Release CSRs 
51 54 08 10 EF 16€9 4188 EXTZV -#16748,R47RT ; Get BSEL6 
51 CO 8F 91 16EE 4189 CMPB ss #*0<300>, : Is this buffer too small? | 
1¢ 4613 «16F2 4190 BEQL mance pee ERR ; Br if yes - procedure error 
51 C4 BF 91 16F4 4191 CMPB #*0<304>,R1 : Is this a disconnect? | 
05 12 16F8 £136 BNEQ 10$ : Br not 
16FA 419 SETBIT #XMS$V_STS DISC,UCBSL_DEVDEPEND(R5) ; Set error flee 
52. 51 02 06 EF 16FF 4194 108:  EXTZV W27R : Else, get severity code 
1704 4195 CASE R2 TYPE=6,<- 3; Process by severity 
1704 4196 SOF T_ERR,=- $ Soft error 
1704 4197 PROCEDURE _ERR,- : Procedure error 
1704 4198 PROCEDURE ERR,- ; Lots of procedure errors 
1706 rhe 5 FATAL_ERRS ; Fatal error 
@ | 
1710 ? 4 ; PROCEDURE_ERR = Process procedure error from device 
1710 4 08 PROCEDURE _ERR: : Process procedure error 
59 f 1710 4204 TSTL R ; CDB address found? 
66— 1 1712 4205 Oo - exit now 
1714 4 4 
1718 4 
1718 4208 
1718 4209 
1718 4210 
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9 ta RDO_INTRPT, CSR Ready Output Interrupt ety 7 90:98:85 DRIVER. SRCIXDDRIVER.MAR; 1 (3) 
171C 4211 FORCE_HALT1: 
421 “ EXTZV #16,48,R4,R3 ; Get BSEL6 value 
- 43 3 ‘ 6 1535 4 18 Sova Re tbe bEVDEPEND+3(R9) : Save BSEL6 in goe 
00002800 FF CA 4 5 2 13 BICL #XHSH_STS RUNNING: XHSM_STS_ACTIVE,- i: Tributary is halted 
53 029C 2 DE 17 3 421 MOVAL UCBSL-XD_HALT(RS),R3 : Set address of halted trib List 
3 i ¢ Hi sonata ZBL CDB 5 tre ADDR(RI) ,R2 : at rie iarean "tian tie 
; Get tr e 
0138 C5 EAI? cf 3 3A 17 5 4 19 Loce , R2 RAN W_TRIB,UCBSB_XD_TRIB_VEC(RS) i Find trib address | 
52 0138 i OF 173F 4951 MOVAB UCBS$B_XD_TRIB_VEC(RS) .R2 : Else, get address of vector | 
51 2 C2 1744 4 SUBL Reunt 3; Calculate index 
1747 & : SETBIT R1,(R3) 3; Set trib index 
1748 4224 SFORK_EXIT: 3; Exit with a fork process 
0153 30 1748 4225 “ BSBW SCHED_FORKC 3; Schedule a fork process 
2A 3611 «1746E 4 § BRB NOOP 3; Exit the interrupt 
198 4 8 ;+ 
P | 
1738 ? 4 3; SOFT_LERR = Process soft error from device 
1586 4231 SOFT_ERR: 3; Process soft error | 
59 05 1750 4 ce ween 9 ; CDB address found? 
26 3 1752 4 g BEQL NOOP ; Br if no - exit now 
a a F 1754 46234 EXTZV #0,#6,R1,R2 3; Get error type 
52 52 FF 8&F 8 1759 4 3 ASHL #-1,R2,R ; Convert type to case code 
175E 4 38 CASE R2, TYPE=B,LIMIT=41,<- 3 Process by type | 
175E 4 THRESH,= : Receive threshold error 
175E 4 3 THRESH,=- : Transmit threshold error 
175E 4239 THRESH,=- : Select threshold error 
175E 4240 START_ERR,= : Start when running | 
175E 4241 MAINT_ERR,= ; MOP when running 
175E 424 NOOP, = $ MOP when halted 
175E 4 rk START ERR1,- ; Start when in MOP 
175E 4244 NOOP ,= ; Reserved | 
175E 4245 DEAD_ERR,- : Dead tributary 
175E 4246 RUNNING_NOTIF,- : Running tributary | 
175E 4247 PROCEDURE_ERR,- : Babbling trib 
a3 ? $8 PROCEDURE _ERR> ; Streaming trib 
W27A 4250 ; ALL others | 
177A & 26 NOOP : 3 No special operation 
FDO8A 31 1geA : 37 BRW INTEXIT ; Just exit the interrupt 
179 4 2¢ THRESH: :; Threshold errors 
177D 4 36 SETBIT #XMSV_ERR_THRESH,CDB_L_DEVDEPEND(R9) ; Indicate warning 
yr TT Vy 1 ? ; BRB NooP 3 And exit interrupt 
17 4 38 START_ERR: ; Start received in RUN 
17 4 $9 “  SETBIT #XMS$V_ERR START, CDB_L_DEVDEPEND(R9) ; Indicate cause of error 
BF 17 f ? ? BRB FORCE_HALT 3; Force trib to shutdown 
1759 4 8g START_ERR1: ; Start received in MOP 
1789 4264 ~ SETBIT #XMSV_ERR_START, CDB_L_DEVDEPEND(R9) ; Indicate start received 
eB 11 1 D ? o2 BRB NOOP : Exit the interrupt 
38F 4 89 MAINT_ERR: ; MOP received while running 


T 
7 
7 
f 
799 ie DEAD_ERR: bee ad tributary 
a 44 7 CLRBIT #XMSV_STS_RUNNING,CDB_L _DEVDEPEND.(R : 3 No Longer running 
dpbBCié~zmLY a re BRB NOOP 3; Exit the interrupt 
79F 6 RUNNING_NOTIF : ; Running tributary 
79F 7 SETBIT we STS_RUNNING ; Indicate trib is running 
79F 427 CDB_L ~DEVBEPEND (RO) : 
53 0298 3 pF i 7 BOVAL UCBSL-XD_RUN(RS5) ,R3 ; Set address of run List 
FF 86 1 ie 9 SET T_ IAD EX : Set trib index in run List 
AB 
AB 
AB 
AB 
AB 


— et oe 8 8 = oo = = = = = 
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7 
4 i FATAL_ERR = Process a fatal device error 
7 és FATAL_ERR: ; Process a fatal device error 
52 24 A5 00 17 § MOVL UCBSL <fne (8) R2 ; Get CRB address 
7AF 8 ASSUME IDBSL-CSR 
H} 2C B82 DO 17AF 88 MOVL acresc IntDsvecsi IDB(R2) ,R2 ; Get CSR address 
01 A2 40 8F 90 1783 4289 MOVB axD -BSEL|_M R,BSEL1(R25 : Master clear the device 
53 54 08 9 F 788 90 EXTZV #1 RS" ; Get BSEL6 value 
4705 5 0 17B8D 4291 MOVE = RB, oeese BEVDEPEND+3((R5) : Save error code 
a. oe: Voc me tree 3 ASHL #X0_BSEL2_V_ERR+16,41,R3 3 Note fatal error 
00pB 94930 17C5 g BSBW SCHED FORR : Schedule a fork process 
BO 11 17C¢8 94 BEB 3; And exit 


4 | 
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XDDRIVER = VAX/VMS aie ghd Device Driver 16-SEP-1984 AX/VMS Macro v04-00 Page 
Yee 008 RDO_INTRPT, CSR Ready Output interrupt g7$EP 198 $8: 5: 5 DRIVER. SRCIXDDRIVER.MAR; 1 . (37) | 
F 6 SETBIT yg | ERR_MAINT,CDB_L peve DENDIRD? Indicate cause of error 
OC Ad 30 $3 § BISW #CD_TS_M START, CDB_@_STS(R : Trib b starts up by itself in MOP 
1 ef i BRB FORTE *AACTY ; at trib shutdown 


9 
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yO 008 OUT_STATUS, Process Information Out fro gree 19 4 8:98:86 DRIVER. SRCIXDDRIVER.MAR; 1 ’ 38) | 
17CA 4 96 -SBTTL OUT_STATUS, Process Information Out from device | 
1FEA 2598 : 44 
1eeA ? $3 ; OUT_STATUS = Process Information Out from device 
W7CA 4 1 : Functional description: | 
17CA & “ ; This routine get the next +g ay from the information out waiting queue | 
17tA ? 3 3 and returns the information from the CSRs. | 
PEA $308 3 Inputs: | 
17CA 4 a8 ; R3 = SELO and SEL2 | 
17CA 4309 ; R4 = SEL4 and SEL6 
17CA 4310 ; RS = UCB address 
17CA ? y : R9 = CDB address (only if tributary information) 
17a e318 IPL = DIPL | 
17CA 4314 ; 
\7CA ? 12 3; Outputs: 
17CA & 9 : RO-R3 = Destroyed 
FEA 4319 | 
17CA 4320 OUT_STATUS: : Process information out 
08 18 EF I17CA $3 1 EXTZV #24,#8,R3,R1 ; Get trib address 
a | 6 HAS ? ¢ BEQL 40$ ; Br if global request 
170) ‘3 : : Read from TSS | 
30 a9 ««9E-=—s«17D1 t3 6 : MOVAB (CDB_Q_INFOUT(R9) ,.R2 : Get address 
50 5 D0 1705 43 MOVL R2,RO 3 Save queue Listhead address 
52 62 «201708 43 8 5$ MOVL (RO) ,R2 : Get next IRP | 
50 52 01 17DB 4329 CMPL 2,RO : End of queue? 
3E 13 170 ‘3 0 BEQL = 208 : Br if yes - exit 
17E0 4 32 : Only a read TSS, read counter, CANCEL and a stop can be on the INFOUT queue. 
17E8 ; ? 3; Find the first non-stop request. 
A2 02 91 1760 4335 ° CMPB = #XD_FC_V_STOPT, IRPSB_XDFUNC(R2) ; Is this a stop request? 
F 13 17E4 4336 BEQL ; Br yes - Keep Looking 
A210 91 1766 4337 CMPB © #XD_FC_V_CANCEL, IRP$B_XDFUNC(R2)'; Is this a CANCEL request? 
EC 13 I7EA 4 3 BEQL 5$ ; Br if yes - keep looking 
52 ge F I7EC 4 REMQUE IRPS$L_IOQFL(R2) ,R2 ; Else get read request 
0c 3 0 I7EF 4340 BSBW SET_ 3; Start output wait timer 
A2 1 1 #17F2 4341 CMPB #XD_FC_V_POLSS, IRP$B_XDFUNC(R2) ; Is this the polling substate | 
Vs 17re 4 4g BNEQ 7$ ; Br if not | 
F8 8F 78 17F8 434 ASHL #-8,R4,RS : Shift down high byte 
A2 54 90 17FD 4344 MOVE R4,{RP$B_POLS(R2) > Save return info 
OD 11 1801 4345 BRB 1 3; Continue 
$f 4 4 1 ; 4 rf 7$ MOVL IRPSL_SVAPTE(R2) ,R1 ; Get pysten buffer address 
BA D5 1 434 TSTL RPSL_MEDIA(R2) : Is this a counter request? 
1 12 180A 4 $8 BNEQ ; Br if yes 
Al 33 af 1 3 434 198 MOVZWL R4,P2B_T_DATA(R1) ; Else, store return info. 
Ag 1 8 1810 4 29 15$ MOV #SS$_NORMAL , IRP$W CSTATUS(R2) : Set success return 
D 6¢ 3 1814 4351 INSQUE (R2)7@UCB$Q_XD_POST+4(R5) ; Queue request for posting 
0 12 1819 4352 BNEQ 20 ; Br if not first entry | 
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3 BSBW SCHED_FORKC : Schedule fork process | 
4 208: RSB ; Return to caller 


seth alt 
0083 Hf 


Trib counters request | 
50 E9SA CE OE 
18 


0$: MOVAB TRIB_COUNTER1=2,R0 ; Get address of counter types 
BRB 50$ 3; Complete the request 


Lame eee 


Global request 
Only a read GSS or read global counters can be on INFOUT queue. 
0$: REMQUE @UCBSQ_XD_INFOUT(RS),R2 
BVS 20$ 
BSBW SET _OUTTIM 
MOVL IRPSL_SVAPTE(R2) ,R1 
TSTL IRPSL-MEDIA(R2) 
BEQL 10$ 
: Global counters request 


s MOVAB LINE_COUNTER-<2*5>,R0 ; Get address of counter types 


Bree Se Ge Oe te 


52 OOAC 05 ; Get next global request 
Fl Br if none waitin 
0c0 Start output wait timer 
51 $s A Get system buffer address 
8 : ; Is this a counters ce uest? 


Br if no - read o 


50 E90C CF FE 


¢ Handle DMP error counter types. 


Sos: FFS #0,#8, IRPSL_MEDIA(R2) ,R3 ; Get counter ind-x 


; Indicate counter complete 


Check if all done 


Get bit map 

Store bit map 

Store counter value 
Check if all done 


Store 16 bit counter 


CLRBIT R3,IRPSL_MEDIA(R2) : 
51 dO MOVL (RI), RI ; Get next data pointer 
2 DD ; Save IRP address 
81 804 B0 MOVW (RO)+CR3),(R1)+ ; Set next counter type 
FE Al 03 OC EF EXTZV #NMASY_CNT MAP, #3,-2(R1),R2 : Get width + bit map 
CASE Re TYPE=B,CIMIT=42,<- ; Handle only DMP counter types 
§ $,- : 8 bit counter (2 per read) 
0$,- : 8 bit counter, bit map 
80$> ; 16 bit counter 
81 90 60$: MOVB = R4,, (R1) + : Store Ist 8 bit counter 
81 60 4 6 MOVW (RO)CR3],(R1)+ : Set next counter type 
54 FB 6 ASHL #-8,R4,R4 : Shift down next counter 
81 90 6 MOVB RG, (RIS+ : Store 2nd 8 bit counter 


70$: EXTZV #8,#8 
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— 
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BO 80S: MOVW R4,(R1)+ 


FY oY a? at at at nt ot et tt a a a a a a a a ek a a eh ek ek ek ek ek eh ek ek ek ek ek ek ek ee ee ee 


BPP FEE ES FAA AAA AAAI AANA AAAI WII 


DOO NAA WN 9 OD NA NE WIN @ 9 OD NA UE WIN OS OD NOME WIN 9 OD NOUS WN" OOONOUM 
wv 
Cc 
nm” 
= 


DOOOOOOOOCOOOOO0 OOOO 0000069 09 09 09 09 09 09 09 NINN NSIS NSO AA AAAOAAO 


B 
MOVAB 4 BT PATACRS) (3) Else, reset start of data 


63 OC AS 35 And complete request 


52 8ED 90$: POPL R2 ; Restore IRP address 
535 2C A D MOVL IRP$L_SVAPTE(R2) ,R3 ; Get system PTE address | 
os 5 MOVL R1,(R3) ; Reset next data pointer 

38 A TSTB [RPSL _MEDIACR2) ; ALL done? 

0 NEQ ; Br if not 


0094 o. 


Out-STaTUs 
1 


ge 1839 cei 100$: INSQUE 
1 441 BRW 


waoyt \Amed Device helene’ 
Process Information Out fro 


LOAD_PORT 


16=SEP- 
-SEP=1 


1986 00:49:00 


Re) UCase. XD_INPUTQ(R5) 


AX/VMS M v04-00 
DRIVER. SRC 3x00 DRIVER.MAR; 1 


; Insert IRP on input @ 
; Request input 


re 


ec - — 
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18A1 4414 -SBTTL SCHED_FORK, Schedule the fork process 
! “) wei »SBTTL SCHED -FORKC, Schedule the fork process with R3 clear 
18A1 1218 34+ 
18A) £218 ; SCHED_FORK = Schedule the fork process 
! ~ re ; SCHED_FORKC = Schedule the fork process with R3 clear 
! ‘} rr 1; Functional description: 
18A1 44 4 3; This routine is called to schedule the error and I/0 completion fork process. 
18A1 4424 ; The Last controller port and CSR values are saved for examination. f the 
18A1 4425 ; fork process is already pending, only the Last CSR values are saved if there 
18A1 44 § 3 was an error. 
18A1 44 3 
18A1 44 8 : Inputs: 
18A1 44 : 
18A1 4430 ; R3 = Last SELO and SEL2 values 
18A1 4431; R4 = Last SEL4 and SEL6 values 
18A1 44 § $ RS = UCB address 
18A1 44335; 
1BA1 4434 ; IPL = DIPL or higher 
Hy 4435 ; 
1B8A1 44 § 3; Outputs: 
18A1 4437 ; 
18A1 Pek 3 R3 is cleared if SCHED_FORKC entry. 
18a re 3 RS = UCB address 
H+ vy ret ; If XD_BSEL2_V_ERR is set in BSEL2 the following is returned: 
18A1 4443 ; UCBSL_XD_SELO(RS) = SELO and SEL2 values 
18A1 4444 ; UCBSL_XD_SEL4(R5) = SEL4 and SEL6 values 
18A1 4445 ; 
Hy 4446 ;-- 
18A1 444 
18A1 4448 SCHED_FORKC: ; Schedule fork process, clr R3 
53 D4 18A1 4449 CLRL R3 : No device error 
1oAs 4450 SCHED_FORK: 3; Schedule fork process 
18 68 AS 03 €2 18A3 4451 BBSS #UCBSV_XD_FORK_PEND ,UCBSW_DEVSTS(R5),10$ ; Br if fork pending 
55 OD iene ret PUSHL R5 : Save RS 
04 10 18AA 445 BSBB 5$ ; Setup fork process 
55 BEDO 18AC 4454 POPL RS 3; Restore R 
05 Hb rs ret RSB : Return to caller 
55 00000286 8F CO 1 ° 43? 5$: ADDL #UCBSB_XD_FKB,R5 : Point to fork block in UCB 
‘AF «OF 1 44 8 PUSHAB B*FORK-PROC : Set address of fork process 
00000000'GF 17 ! Bh $223 JMP G*EXESFORK s Schedule the fork and return 
05 53 3 4 1 ‘6 4461 10S: BBC #XD_BSEL2 V_ERR+16,R3,20$ :; Br if not error 
02c6 (55 D 18¢é4 MOVa  R3,0CBSL_RD7SELO(RS) > Save Last CSR values 
05 1869 4465 208: RSB ; Return to caller 
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YoeeO08 FORK_PROC, Error and completion fork pr Set 7 8:95:60 YORIVER. SREIRDDRIVER.MAR: 1 . (40) vo 
cA 4465 .SBTTL FORK_PROC, Error and completion fork process handling 
18CA 4467 54+ 
i +A ree ; FORK_PROC = Error and completion fork processing 
cA cir : Functional description: 
18CA 447 : This routine is called as a fork process to handle errors and all completions 
18CA 4473 ; pending. 
18CA 6474 ; 
1354 o252 3; Inputs: 
18CA 4477 : R3 = Last SELO and SEL2 values 
18CA 4478 ; R4 = Last SEL4 and SEL6 values 
: ‘A rt 3 RS = UCB address | 
18¢h seb : IPL = FIPL | 
18CA it : Outputs: 
18CA 4485 : RS is preserved. 
1k St8 | 
OBBA' 18CA 4488 : WORD TIMEQUT~. : Offset to timeout routine 
18CC 4490 FORK_PROC: ; Error/complet ion fork process 
55 00000286 8F (C2 ect 4491 UBL #UCBSB_XD_FKB,RS ; Point to UCB 
1803 449 CLRBIT #UCBSV_XD_FORK Ay et: oa! ‘eaten se! © ; Clear fork process flag 
0c 53 15 €1 1808 449 #XD_BSEL2-V_ERR+16,R3,5$ ; Br if not an error 
18DC 449% SETBIT #XMSV_ERR FATAL UCBSLDEVDEPEND(RS) ; Indicate fatal error 
0082 (5 86 18E1 4495 INCW UCBSW7ERRCENT(RSS ; Bump error counter 
0454 1 TES ret BRW SHUTDGWN_DEV ; Shutdown the device 
He ret : Complete any requests on completion queue | 
59 DD 18€8 4500 5s: PUSHL R9 : Save R9 
52 0084 D5 OF 18EA +28) 10$: REMQUE @UCBSQ_XD_POST(R5),R2 ; Get next completed block 
94 1C 18EF 45 ¢ BVC 20$ ; Br if got one 
0326 Hi + $28 BSBW HALT_TRIBS ; Halt all tribs with errors 
0342 0 18F4 4504 BSBW START_XMITS ; Start xmits for tribs in run 
59 BEDO 18F7 4505 POPL R9 ; Restore R9 
05 : 4. $238 RSB : Return to caller 
FB 4908 : Found a completed block - finish it 
17 OA AZ 91 18FB 4510 208: CMPB JRPSB_TYPE(R2) ,S*#DYNSC_NET ; Was it areceive? _ 
OA 13 18FF 4511 BEQL 0$ ; Br if yes - complete it 
OA OA A2 91 1901 t21¢ CMPB RPSB_TYPE(R2),S*#DYNSC_IRP ; Was it an IRP? 
4F 613 1203 451 BEQL ; Br if yes - complete it 
bs 1 $213 } BUG_CHECK NOBUFPCKT,FATAL ; Else, fatal error 
1908 i316 ; Receive complete - if there is a pending receive 1/0 request, conplote it. 
12ye $3! 3 Otherwise, queue the buffer and, if enabled, deliver attention AST. 
50 OCA SA 1908 4315 $0s: MOVZBL BCY_L_BACC(R2) .RO ; Get trib address 
11 4 190F $25? BNEQ 32$ ; Br if no error 
42 a5 AO 1911 4521 ADOW UCBSW_DEVBUFSIZ(R5),- ; Adjust receive buffer quota 


72 mr — — 7 _ - — . —— 
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136 £5 1914 4 : UCBSW_XD_QUOTA(RS) ; 
DO 1917 4 MOVL ; Get address of buffer 
"GE 16 191A 45 ¢% JSB G COMSDRVDEALMEM ; Deallocate buffer 
ce 1 + ? 5 SRB 0$ ; Get next completion 
O59F 38 19 $e § 32$: BSBW FIND_TRIB ; Get CDB address 
0450 €8 19 bs 8 BLBS ’ ; Br if got CdB 
" . ; Else, fatal error 
13 e $2 s BUG CHECK NOBUFPCKT,FATAL El l 
$ OE A f 19 4531 338: MOVZWL RCV_L_BACC#+2(R2),R1 ; Get the byte count 
BAD 5 cO 19 45 ¢ ADDL R1,COB_L_BRC(R9) ; Update byte count 
1€ 19 $2 BCC ; Br if no overflow 
38 A? 1 CE 1936 4534 MNEGL #1,CDOB_L Lo ie ; Else, latch it 
193A 4535 358: INCC CDB_L_BMR(RS) ; Update message count 
53 1889 OF 1942 45 § REMQUE @CDB_O_RCV_REQ(R9) ,R3 ; Remove waiting IRP 
05 10 1946 45 BVS ; Br if none - queue for Later 
0248 30 1948 4538 BSBW fARISH_ACV 10 ; Else, finish the 1/0 
9D =o MY $273 BRB 10$ ; Look for next completion 
24 89 62 43 194D 4541 40S: INSQUE (R2),@CDB_Q_RCV_MSG+4(R9) ; Queue receive msg for later 
091C 1951 $286 BSBW P USER ; Deliver ASTs 
9% «(1 1328 ra BRB 10$ ; Look for more completions 
1338 rik ; IRP packet completion = branch to proper completion handling routine. 
53 52 D0 1956 4547 50S:  MOVL R2,R3 ; Copy IRP address 
52. 21 AS) «9A «(1959 4548 MOVZBL 1 RPSB_XDFUNC (R3) R2 ; Get function type 
. =B,- ; Dispatch on request type 
195D 4549 SDISPATCH R2, TYPE=8 Dispatch tt 
195D 4551 <XD_FC_V_INITT FORK_PKT>,=- ; Start tributary 
195D 455¢ <XD-FC“VIINITC FORK-INITC>,- ; Start DMP11 controller 
195D 455 <XDZFC“VISTOPT FORK“STOPT>.- ; Stop tributary 
195D 4554 <XD_FC_V_STOPC FORK_STOPC>,- ; Stop DMP11 controller 
195D 4555 <XD_FC_V_CHGC FORK_INITC>,- ; Change controller parameters 
195D $228 <XD_FC_V_CHGT FORK _PKT>,- ; Change tributary parameters 
1950 455 <XD"FCIVIRDMODEM FORR_SSLOT>,- ; Read modem register 
195D 4558 <XD-FC"V"RDTERR FORK_COUNTER>,- ; Read tributary error counts 
195D 4559 <XD_FC_V_RDGERR FORK_COUNTER>,=- ; Read global error counts 
195D 4560 <XD_FC_V_RCTERR FORK_COUNTER>,- ; Read and clear tributary ctrs 
195D 4561 <XD_FC_V_RCGERR FORK_COUNTER>,- ; Read and clear global counts 
195D 1298 <XD_FC_V_RDTSS FORK_SSLOT>,- ; Read TSS location 
195D 456 <XD“FC"V“RDGSS FORK“SSLOT>.- ; Read GSS location 
195D 4564 <XD_FC_V_WTMODEM FORK PKT>,= ; Write modem request 
1950 4565 <XDZFC"VZHALTT FORK_AALTT>,- ; Halt tributary 
1950 4566 <XDTFCTVIKILLT FORKTKILLT>.-  ; Kill tributary 
195D 4567 <XD_FC_V_CANCEL FORK_CANCEL>,- ; CANCEL request to halt trib 
195D 4568 <XD_FC_LV_XMIT  FORK_XMI1>,- ; Xmit request 
1950 $288 <XD_FC_V_RECV FORK _RECV>,- ; Receive request 
1950 4570 <XD-FCUVUNUMSYNC FORR_INITC>,- ; Set number of sync characters 
195D 4571 <XD_FC_V_POLSTAT FORK_PKT>,=- ; Latch polling state 
195D $376 <XD“FCIV=POLSS FORK_POLSS>,- ; Read polling sub-state 
198b 376 : 
i 4 $222 ; Otherwise if not a valid IRP 
198D 2399 BUG_CHECK NOBUFPCKT,FATAL ; Fatal driver error 
1991 4578 
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FORK_PROC, Error and completion fork pr 5-SEP-1984 DRIVER. SRCIXDDRIVER.MAR; 1 (40) 
1991 4579 FORK_PKT: ; Process completion on packet 
50 7 oH 139 4 MOVZWL IRPSW_CSTATUS(R3),RO 3; Get status of completion 
23 1995 4 BSBW DORE ; Complete the 1/0 
FFGF ba : ; BRW $ 3; Get next packet 
1996 8 4 FORK_INITC: ; Process ctrl init completion 
01 91 1998 4585 CMPB S*#XD_FC_V_INITC, IRPSL_MEDIA+1(R3) ; Was this an init controller? 
F 12 199F 45 § BNEQ FORK ; Br if not 
42 A 8 19A1 45 TSTw A3LOr SUSTAINS) 3 Any quote to return? 
2 19A4 4588 BEQL 5$ : Br if no 
OC AS 3C 1946 4589 MOVZWL IRPSL_PID(R3),RO ; Get process index from IRP 
00' GF 06 19AA 43 0 MOVL Ge SCHSGL PCBVEC RI : Get address of PCB addr vec 
6140 DO 1981 4591 MOVL (R1)CROJ,R ; Get PCB address 
60 a0 D1 1985 49¢ CMPL PCBSL_P1D(RQ) ,- > Still same process? 
CA 1988 459 {geet PLOKR ) 3 
11 ie 19BA 4594 BNEQ 5$ ; Br if not - forget it 
0080 c 4 19B8C 4595 MOVL PCBSL_JIB(RO) ,RO ; Get JIB address 
42 A C 19C1 4596 MOVZWL IRPSW-QUOTA(RS) ,R1 : Convert quota to longword 
51 ¢cO 19¢5 459 DOL R1,JIB$L_BYTCNT (RO) ; Return byte count quota 
51 CO 434 $208 ADOL R1,J1BSL_BYTLM(RO) 3 «and byte Limit quota 
42 a3 3C 19CD 4600 55$ MOVZWL IRPSW_CSTATUS(R3) ,RO ; Get completion status 
50 3 19D1 4601 PUSHL RO ; Save completion status 
OFA 0 1903 460 BSBW 10_DONE ; Complete the I/0 request 
50 B8EDO 1906 460 POPL RO ; Restore status 
03 50 3 1909 4604 BLBC RO,57$ ; Br ir error on startup 
FOFA 0 190C 4605 BSBW FILLRCVLIST ; Start the receives on success 
FFO8 31 4 ree 57$: BRW 10$ ; Get next packet 
19E2 4608 FORK_STOPT: ; Process stop of tributary 
0568 30 19€2 4609 BSBW GET_CDB ; Get COB address 
24 50 9 19€ 4610 BLBC RO, ; Br if no CDB 
0260 0 19€8 4611 BSBW SHUTDOWN_TRIB1 ; Abort all 1/0 
01 C Iver re ot MOVZWL S*#SS$_NORMAL ,RO ; Set completion status 
ee reo ; Cleanup CDB in case we use it again 
OC AD =6B4 19EE 4616 CLRW CDOB_W_STS(R9) ; Clean up status word 
00 FO 19F1 4617 INSV #0,787#24,CDB_L_DEVDEPEND(R9) ; Clean up device status 
38 Ad = 7C 1966 4618 CLRQ = CDB_L_CNTS(R : Clean up counts 
40 Ad 7C 19F9 4619 CLRQ B_L_CNTS+8(R9) ; eee 
0135 ¢5 90 19FC 4620 MOVB UCBSB_XD_XMT_TRB(R5),CDB_B_XMT_CNT(R9) ; Init max xmits allowed 
06 £0 1A02 4621 BBS #XMSV"CHR_ CTRL, UCBSL_DEVBDEPENDTRS) ,58$ ; Br if control station 
7F 8F 0 103 46 ¢ MOVB #INF_XMT,COB_B_XMT_CAT(R9) : Else, allow infinite xmits 
01C1 30 1A0C 4623 58$: BSBW 10 DONE : Complete the 1/0 request 
FEDS 1 1Ave 2 : GR os 3; Get next packet 
1A12 46 § FORK_STOPC: ; Process stop of controller 
0327 30 1A12 46 BSBW SHUTDOWN_DEV : Abort all 1/0 on all tribs 
01 C 1A15 46 8 MOVZWL S“*#SS$_NORMAL RO ; Set completion status 
0185 0 1A18 46 BSBW 19 DONE 3 Complete the 1/0 request 
FECC 1 A 8 9 BRW 108 ; Get next packet 
1A1E 46 § FORK_COUNTER: ; Process counter done 
50 ; A C Al 46 MOVZWL Re ey BENT Re) one ; Get size of P2 buffer 
A B4 1A 4634 CLRW IRP$W_BCNT(R3) ; Assume error = no data return 
18 42 A 1A 4655 BLBC IRP$W_CSTATUS(R3) ,70$ ; Br if err when getting counts 


& 
5 
A 
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; Else, reset size of data 
Is user buffer larger than P2? 
Br if yes - okay 
; Else, set user return size 
; Set error return 
“Move count to high word 
Set return status 
Complete the 1/0 request 
Get next packet 


Process status slot read 
Get completion status 
Br if success 


; ae no data to return 
e 


Complete the I/0 request 
Get next packet 


Process transmit done 
Get CDB address 

Br if COB present 
Else, set error return 
Return map registers 


; Indicate another xmit complete 


Br if xmit error 


; Get size of transmit 


Update byte count 

Br if no overflow 

Else, latch it 

Update message count 

Get mapping slot number used 
Clear in use flag 


: For all except uVAX I, we must release the UBA map registers. 


FORK_PROC, Error and completion fork ru, -SEP-19 
BO 9 MOV RP$W_BCNT(R 
8] D CMPW ine L_MEDIA+2(R 
BGEQU 
8 MOVW tte estate. 
HE TASS EET gos, Set 
1 $0: MOVW TnPsy ESTATUS (RS), RO 
3 BSBW 3S sé 
1 8 BRW 
8 FORK_SSLOT: 
3 8 MOVZWL 1RP sy, CSTATUS(R3) ,RO 
f F BLBS 
4 : CLRB ey BCNT(R3) 
30 0 75$: BSBW 10_DORE 
1 8 1 BRW 
B : FORK_XMIT: 
30 B 4 BSBW  GET_CDB 
fd. E 5 BLBS  R0,78$ 
B0 1 : MOVW RO, IRP$W_CSTATUS(R3) 
11 5 BRB 90$ 
96 7 § 78$: INCB CoB B_XMT_CNT(R9) 
5? A 0 BLBC RPSW_ CSTATY (R3),90$ 
C ; 1 MOVZWL InP su BCNT(R3),R1 
£0 i DDL 1,CDB_L_BSN(R9) 
CE g MNEGL #1 COB. L gBSN(ROD 
C 80S: INCC. CDB_L 
9A 1A84 90$: MOVZBL CRPSt See taeh cas) & 
A 4 CLRBIT R1,UCB$B_XD_XMT SMAP (RS) 
ABE 
ABE 
ABE CPUDISP <<790,93$>,- 
ABE <780,93$>,- 
ABE <7 §-3as) + 
ABE <730,93$>,- 
My <uvi, 96$>> 
DO 1AA 93$: MOVL UCBSL_ CRB(RS) ,R2 
DO 1AA MOVL UCBS L7XD_XMT_MAP(RS 
AB CRBSL aiiTpsvecee MA 
CE 1AB MNEGL #1,UCBS$L_XD_XMT_MAP 
ABS RELMPR 
ABF 
ABF 96$: 
3C 1ABF MOVZWL IRP$W_CSTATUS(R3) ,RO 
E9 1AC3 BLBC ~—- RO, 100 
80 ACé MOVW RPS BENT(R3), RO 
ACA ASHL #16,R 
6 AcE MOVW sosss NORMAL. RO 
AD 100$: B8SBW  10_D0N 
0 1AD4 BSBW = XMT_ALT_START 
1 AD7 BRW 10$7 


Get CRB address 
Setup map register data 


Set mapping data not allocated 
Release the map registers 


Get return status 

Br if error 

Get count of bytes transmitted 
Shift into pate 

Set succes 

Complete the 1/0 

Give other xmits to device 

Get next packet 
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JADA rhe 4 FORK_RECV: ; Process receive request 


0473 30 1ADA 469 BSBW Ss«GET : Get CDB address 
oc 5 (9 1408 4695 BLBC gf rice ; Br if error 
50 42 A C 1AEO 469 MOVZWL IRPS$W_CSTATUS(R3) ,RO : Get completion status 
05 5 1AE4 469 BLBC RO,110$ ; Br if error 
E9A Q 1AE7 469 BSBW Ry START_ALT ; Get any receives waiting 
0 11 ise ; 4 BRB 1208 3 Continue 
00E1 0 AEC 4701 110$: B8SBW 0_ DONE 3; Complete the 1/0 request 
FDF8 3 ner is 120$:  BRW 18s : Get next packet 7 
1ar§ 1288 FORK_HALTT: 
2E 42 A3 9 1AF 4705 BLBC IRPSW_CSTATUS(R3) ,FORK_KILLT ; Br if error 
21 A3.~—sOOF 0 1AF6 $708 MOVB #X0_FC_V_KIL T, IRP$B_XBFUNC(R3) ; Set to kill trib 
1AFA 470 DSBINT UCeSe BIPL(RS) 3 Syne access to device 
0098 DS = 63 — 1801 4708 INSQUE (R3),aUCB$Q_XD_INPUTQ+4(R5) ; Insert at end of input Q 
F4C7 0 1806 4709 BSBW LOAD_PORT ; Give request to device 
1809 4710 ENBINT ; Restore IPL 
FODB = 3311 a rah BRW 10$ 3; Get next packet 
1B0F 1318 FORK_CANCEL: ; Process completion of $CANCEL 
043 30 BOF 4714 BSBW GET_CDB ; Get CDB address 
OF 50 ED 18 4715 BLBC RO,FORK_KILLT ; Br if error 
0D —E1 161 acts BBC #XM$v_STS RUNNING, = ; Br if not in 
OB 69 1817 471 COB_L DEVBEPEND(R9) ,FORK_KILLT : run state 
0228 8F BB 1819 4718 PUSHR #*M2R3,R ; Save registers 
E708 30 1B1D 4719 BSBW = sXMT aut Start : Start up any pending xmits 
0228 8F BA Ht ? eis POPR #*MZR35,R5,R9> ; Restore registers 
1B24 $7s¢ FORK_KILLT: ; Process completion of kill 
OCDA 3 1B24 47 BSBW POST_IT 3; Deallocate CDB from IOPOST 
FDCO 1 16s? rtf : BRW 10$ ; Get next packet 
1B2A 4726 FORK_POLSS: :; Process Poll substate 
22 42 A3 E9 1B2A 4727 BLBC IRP$W_CSTATUS(R3) ,130$ :; Br if error ‘ 
06 «€1 18¢ 4728 BBC #XM$V_CHR_CTRL,=- ; Br if not control station 
1D 44 AS 18 $762 CBSC_DEVDEPEND(RS) ,130$ $ on 
50 3F AS 3 608)~=6—«iOOtéEA 183 4730 FFS # #8, TRP$B_POLS(R3) ,RO 3; Find state 
15 13 1839 4731 BEQL 6$ : Br if no-state???? 
ite 47 ¢ ASSUME P2B_L_ POINTER EQ 0 
1 2¢ B83 DO 1838 47 MOVL @IRPSC_SVAPTE(R3) ,R1 ; Get P2 buffer address 
66 Al O3F3 BF BO IB3F 4734 MOVW #NMASCPCCI_PLS,TRIB_PRM BUF SIZ(R1) ; Stuff parameter code 
68 Al ESFD CF40 9A 1B45 4735 MOVZBL noiss_.1BL ROJ,TRIB_PRM_BOFSIZ+2(R1) ; Return parameter value 
2 13 184C 47 § BEQL 130$ ; Br if UNKNOWN 
4 11 180k 47 BRB 140$ 3; Continue 
32 AS A2 1850 4738 130$ SUBW #6, IRP$W_BCNT(R3) ; No polling substate return 
50 $2 A BO 1854 4739 1408 MOVW 1RPSW_BCAT(R3) RO ; Assume user has good size buffer 
50 3¢ a3 B81 1858 4740 CMPW ss TRPSLMEDIA+4(R3) ,RO : Is user buffer Large enough? 
ge 1 1B5C 4741 BGEQU§ 150$ ; Br if yes 
42 A3 069) F B60 1B5E arts OVW #SS$_BUFFEROVF ,IRP$W_CSTATUS(R3) ; Return partial success 
0 C Ad. OB 1B64 474 MOV TRPSC MEDIA+4(R )»,RO ; Set size of return 
2A3 50 8 1868 4744 MOVW RO, IRPS$W_BCNT(R3) ; = 
Wb we 1B6e 4745 150$:  ASHL #16,R0,R0 : Shift size of buffer return 
50° 42 a3 B80 1870 4746 MOVW  IRP$W_CSTATUS(R3) RO : Set success status 
5 DD 1B74 474 PUSHL RO 3; Save return status 
52 38A » 1B76 4748 MOVL RPSL_MEDIA(R3) ,R2 ; Retrieve Pl buffer address 
oe 1B7A 4749 BEQL 70$ ; Br if none 


a 
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62 40.A5 7D 187C 4750 mova UCB$B_DEVCLASS(R5) , (R2) ; Else, return characteristics 

03¢ 30 1880 4751 BSB Ssé«GEET : Get CDB address 

04 €9 18 47 ¢ BLBC RO,T ; Br if error 
04 A2 ‘ C8 1B86 47 BISL CDB_L_DEVDEPEND(R9) ,4(R2) : winte 

8 8E 1BBA 4754 170$: POPL RO ; Restore return status 
004 0 188D 4755 BSBW 10_DONE : Complete the 1/0 request 
FD57 1 1899 4756 BRw 108 3; Get next packet 
1B9 4757 -DSABL LSB 
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-SBTTL FINISH_RCV_IO, Finish receive I/0 processing 


++ 
FINISH_RCV_IO = Finish receive 1/0 processing 
Functional description: 
This routine completes a receive operation that has been matched with a 
message block. After the receive has been completed the message free List 
is filled and a receive is started if needed. 
Inputs: 
message buffer address 
1/0 packet address 
UCB address 
COB address 
IPL = FIPL 
Outputs: 


RS is preserved. 


The request is completed via 1/0 post. 


Finish recieve 1/0 request 


WOOO OOODOOVOOOOOOOVOOOOVOOOOOOOOOO 


NWWAAAWNANANAINIAAINAINAAAINAIN ANA AI 


o 
o 
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2c A3.—s 2 ovL R2, IRP$L_SVAPTE(R3) 3; Save block address 
os 48 Ag 9E MOVAB RCV_T_DATA(R2) , (R2) ; Set address of received data 
04 A2 38 A3 00 1898 MOVL  IRPSLIMEDIA(R3) ,4(R2) : Set address of user buffer 
42 A5 AO A 9 ADDW UCBSW_DEVBUFSIZ(R5),- 3; Adjust receive buffer quota 
0136 C5 A3 479 UCBSW_XD_QUOTA(R5) ¢ 
51 OF A2~ 860 A6 479 MOVW RCV_L_BACC+2(R2) ,R1 ; Get size of transfer 
32 a3 51—Ss«&BSCSIBAA 479 CMPW sR, TRPSW_BCNT(R3) : Request larger than actual? 
04 1B IBAE 4794 BLEQU§ 108 : Br if no 
- es | 0 4795 MOVZWL IRPS$W_BCNT(R3),R1 3; Set size to minimum of two 
32 A351 4 4 4796 10$: MOVW R1,1RP$W_BCNT(R3) ; Set size to transfer 
50 51 +10 8 4797 ASHL #16,R1,RO0 : Set buffer size in status 
07 =+12 C 4798 BNEQ 20$ : Br if success 
50 0054 8F B60 4799 MOVW #SS$_CTRLERR,RO ; Set data path error 
03 =11 : £339 BRB 30$ 3; Fill receive List 
50 4 58 7} 4 8 eps: MOVW $*#SS$_NORMAL ,RO 3; Set success 
6 C8 4 $: BSBB N ; Post the 1/0 request 
F30C = «331 cA ; oe BRW FICLRCVLIST ; Fill up the receive buffers 
CD 4 Bg 3; Complete an 1/0 request packet 
CD 4807 ; 
CD 4 4 ABORT_PKT: ; Abort the 1/0 request 
50 2c 5X CD 480 MOVZWL #SS$_ABORT,RO ; Return aborted status 
4 4810 I0_DONE: : Complete a transfer 1/0 request 
38 AS = 550~—s«éiO DO 4811 MOVL RO, IRP$L_IOST1(R3) : Set status return and size 
D4 4 \§ 10_DONE1: ; Alternate entry point 
3C AS 44 ASOD D4 481 MOVL  UCBSL_DEVDEPEND(RS) ,IRPS$L_I0ST2(R3) ; Set other info 
50 44 A353 D D9 4814 MOVL jRPSL_COB (RS) .RO ; Get address of COB address 
09 «(1 DD 4815 BEQL 0$ ; Br if none 
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Voce 005 FINISH_RCV_10, Finish receive 1/0 proce 873 7138 $0: 18: 66 f 

1BDF 4 1g 

DO BDF 481 MOVL (RO) ,RO 

1 1BE2 4 18 BEQL 10 

8 CB 1BE4 481 BISL COB : DEVDEPEND (RO), IRPSL {0 
” A A E1 1BE8 4820 10$ BBC a1RP 0_DIAGBUF,,IRP$W_STS(R3) 
cr 1BED 4821 ADDL3 #8, aIRP$L_DIA AGBUF (RST. RO 
ao” 49000609" oF D 1BF2 4 : OVO G*EXESGQ SYSTIME,(RO)+ 
¢ 3 1BF9 4 MOVZWL UCBS$W ERRCN NT(R5), (RO) + 
85 9 30 iIBFE 4824 SBW REG DORP 
1€01 4825 20$: 
1€01 4826 POST_IT 
1601 4 PUSHQ R6 
50 05 90 1€04 4 MOVB #JNL_POST,RO 
08¢3 30 1C07 4830 BSBW = XD_FILL_JNX 
45 9 1COA 4831 BLBC 
66 «638A D 1COD 4B3¢ MOV = IRP$L_10ST1(R3), (R6) 
1€11 4833 50$ POPQ = R6 
1014 4835 
00000000'GF 17 1C€14 4836 JMP G*COMSPOST 
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; Get , Sone 


: Br ifn 
$13¢R3) ; Set  cireuit bits 
20$ ; 


Br if no diagnostic buffer 
Address buffer past start time 
Insert stop time 
Insert error counter 
Dump registers 


Post IRP for completion 
Save registers 

Set journal type = POST 
Fill the journal buffer 
Br if error 

Store the I0SB 

Restore registers 


Post the I/0 and return 


(41) | 


5 


Vv 


39 


4 
4 
4 
4 
4 
484 
4 
484 
484 
1848 
4 rk 
4850 
4833 
4838 
4854 
4855 
4 28 
rtf 
4858 
4859 
4860 
52. 029° CS) E532 CF 0 EA 4861 
1 13 rete] 
486 
59 0218 C542 09 rt +: 
as 4865 
0039 30 4866 
> Bae i 4867 
05 4868 
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-SBTTL HALT_TRIBS, Halt all tribs that were forced to shutdown 


s++ 
; HALT_TRIBS = Halt all tribs that were forced to shutdown 
; ; Functional description: 


: This routine scans the UCB halt longword for any trib that were recently 
; shutdown due to device errors. 


; Inputs: 

RS = UCB address 
; IPL = FIPL 
: Outputs: 


RO-R2,R9 are destroyed. 


HALT_TRIBS: 
FF 


SHUTBOuN TRIB ; Shutdown the tributary 
TRIBS Look for next halted trib 


BEQL ThiBs : Br if no CDB address 
: Return to caller 


; Shutdown all tribs that are halted 


§ 10 MAX_W_TRIB,UCBSL_XD_HALT(R5), Re 5 i meen of next halted trib 
? r 

CLRBIT yest. XD_HALT(RS5) Else, indicate. trib shutdown 

OVL Ucéet D-CDB_VEC(R5)CR2],R9 ; Get CDB addre 


Voce O00” START. 


T 


53 
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4 ~SBTTL START_XMITS, Start xmits for tribs in run state 


p++ 
5g =; START_XMITS = Start xmits for tribs in run state 
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: Functional description: 


; This routine scans the UCB run longword for any tribs that have recently 
; entered the run state, to start the xmit requests for that tributary. 


Inputs: | 
RS = UCB address 
IPL = FIPL 

Outputs: 


RO-R2,R9 are destroyed. 


ee ed aed od od od od od ot od = es ws 2 SS 2 — 2 — 4 2 a 
POOOAIPVOOOOOAOOOOOOOOOIOOOOOOAIOAOAaIno oe 
NUNOF FRO OOCOC0D0DDDDD0DDODD0DD000000 
PRE LLLLLLL LER ELE EERE EEE EEE 6 
(G0 Cd Cd C0 CO Cd C0 O0 Od OD GD GD Go Gd.OD CD Go Go Go G9.G0 G2 G9 Go GOGO 
OO NOOO 0000000000000 00000900 SI NINN 
UEWN 30 OONOUEWNO we —o 
Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge & 


START_XMITS: ; Start xmits on running tribs | 
52 0298 CS €513 CF 99 EA 3 FFS #0,MAX_W_TRIB,UCBSL_XD_RUN(RS),.R2 ; Get index of next running trib | 
1 13 “ BEQL 10 ; Br if none running 
4 CLRBIT R2,UCBSL_XD_RUN(R5) : Else, indicate xmits started 
59 0218 (542 DO IC4A 48 MOVL  UCBS$L_XD-CDB_VEC(R5)CR2],R9 ; Get CDB address 
E 1 50 4 BEQL $$ START XMITS ; Br if no CDB address 
E6A6 8= 30 52 4898 BSBW XMT_ACT START ; Start xmits for this trib 
Ss 55 4899 BRB START_XAITS ; Get next trib 
05 57 4900 10$: RSB ; Return to caller 


—— ee —— 
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1¢ 49 ¢ «SBTTL SHUTDOWN_TRIB, Shutdown the tributary . 
1688 C904 44 | 
iC 49 5 ; SHUTDOWN_TRIB = Shutdown the tributary 
iC 49 g : Functional description: 
\ 4 : This routine is called to abort all I/0 pending for this tributary. | 
iC a3 : Inputs: | 
1¢ 131 RS = UCB address | 
163 tBye $ R9 = CDB address 
1C58 4916 : IPL = FIPL | 
1058 4917: 
HEE GBB f ovoues: 
1€58 4920 RO-R2 are destroyed. | 
1058 4921; 
1k88 2958 ° | 
1058 4924 SHUTDOWN TRIB1: 
1€58 4925 PUSH oR : Save R3, R4 
12 10 158 49 6 BSBB SHUTDOWN. TRIB : Shutdown the tributary 
53 30 3 x 1528 23 4 20$: RE RGUE @CDB_Q_INFOUT(R9) ,R3 3 cet any le leftover IRPs 
; Br 
FF67 «3930 1€63 4929 BSBW ABORT_PKT i Else, abort the IRP 
FS 611 «#1066 4930 BRB 20$ : Look for more 
1€68 4931 50S: POPQ R3 3; Restore R3, R4 
o7¢c2 30 1C6B $356 BSBW SET_OUTTIM ; Reset output wait timer 
oa aoc 
1C6F re SHUTDOWN_TRIB: ; Shutdown a tributary | 
010C A9 00 «£0 1C6F 4936 6s #CD_TS_V_ESTAB,CDB_W_STS(R9),10$'; Br if trib established 
OF TES o588 pe 
C75 4939 : Flush all attention ASTs | 
00p8 SF BB 1C75 4941 los: — PUSHR #PMCRS RA RE .R7> ; Save registers | 
57 04 A9 9E 1679 494¢ 20$:  MOVAB CDB_L_AST(R9S.R7 : Get address of AST Listhead 
50 67 ? 1628 rere atte CRITSRO 3 age: how Mg list? 
: ; Br no 
5 2A ¢f 1¢82 4945 MOVZWL ACBSL_KAST+10(RO), RS 3; Force channel match 
5 4A C 1C€86 reg MOVZWL ACBSL- EASY) (RO) 3; Get process index 
54 00000000'GF 4 1s 494 MOVL G*SCHSGL_PCBVEC, ri* 3; Get PCB address vector address 
4 6442 D0 1C€91 4948 MOVL (R4)CR2I7R4 3; Get pce address 
00000000 ' GF 16 1€95 4949 JSB Gr CONSFLUSHATTNS 3; Flush AST 
oc si +3 $320 BRB 0$ : Continue flushing ASTs 
1590 £326 3 : Complete all IRPs for this tributary | 
00002800 8F CA 1e8 $328 $0s: BICL top te STS ACTIVE een. STS ne. - “and active the ane | 
ac la 
56 1009 9E ICAL 4956 OVAR CDB=G-QUELES (RD) .R adarest 3 a Tiret enous itethes | 
eas 495 ASSUME CDB- “Q-INFOUT E 2 the Q oumhiaaoactt” C_QUEUES- 
1CA8 4958 ASSUME CDB- Q XMT_PND Fa CdB_ G _QUEUES+<8*<CD6_ ct "QUEUE S-2>> 


a at 


; Get CRB address 


7 
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| 
57 03 C 1CAB 4959 MOVZWL #CDB_C_QUEUES-2,R7 ; Get number of queues | 
53 00 8 35 1CAB 2359 40$: REMQUE (Rey CRS 3 Get next IRP/but fer | 
1D 49 Vv $ ; Br if none - gyeue empty 
OA OA a 4 1308 CMPB Eats, FRESE SOT : Is this an IRP? 
; Br es 
17 OA AS 9H 4964 CHPS — JRPSB_TYPE(RS).S*#DYNSC_NET Is It a receive buffer? | 
; Br es 
rh é BUG_CHECK NOBUFPCKT,FATAL ; Else, Yatal error | 
4968 ; IRP | 
FFO9 §=630 4370 50s: BSBW ABORT_PKT ; Abort the I/0 request 
+ ee rp 4 : BRB 408 ; Get next entry 
4378 : Receive buffer 
. 
52 53 00 4975 708: MOVL R3,R2 ; Set receive buffer address 
42 a5 Ad 4976 ADDW UCBS$W_DEVBUFSIZ(R5),- : Adjust receive buffer quota 
0136 ¢5 497 UCB$W-XD_QUOTA(RS) ; 
F20E 30 4978 BSBW ADORCOULIST ; Try to add to receive List 
dp? 1 4979 BRB 40$ : Get next entry 
rh 9 : Loop to next queue 
56 08 CO 1388 bos: ADDL #8,R6 3; Skip to next queue Listhead 
1) ae t3ne SOBGTR R7,40$ ; Loop if more queues 
4986 ; Abort the transmit requests in progress and return the map registers | 
rhs 14 3; and transmit slots! 
53 2889 OF 4989 90$:  REMQUE @CDB_Q_XMT_PND(R9) ,R3 ; Get next xmit request 
260 «1D 0 BVS 100$ ; Br if none 
51 3C Ad 9A 4991 MOVZBL IRPSL_MEDIA+4(R3),R1 ; Get mapping slot number used 
D0 499 CLRBIT R1,UCB$B unt MAP(R5) ; Clear in use flag 


52.24 AS 
34 A2 O0EO C541 00 ; Setup map register data 


me ee ed ed 8 8 
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1],- 
4995 CRBSL—INTD+VEC$W_MAPREG(R2) | 
OOEO €541 01 CE 499 MNEGL #1,UCBSL_XD_XMT_MAP(RS)CR1) ; Set mapping data not allocated 
499 RELMPR ; Release the map registers | 
FEC9 30 4998 BSBW ABORT_PKT ; Abort the I/0 request 
a 4999 BRB 90$ ; Loop til done 
800 100$: | 
O9¢ 3; Take special care not to abort any shutdown requests that are pending 
56 30 A9 43 04 MOVAB CDB_Q sehen com ; Get address of infout queue 
53 6 D 05 140$: MOVL (R6),R ; Get address of next in queue 
56 53)—CO 06 150$: CMPL R3,R6 ; At end of queue? | 
1D 13 0 BEQL ; Br if yes, all done 
21 A3 13 % 4 bor #XD_FC_V_STOPT, IRPSB_XDFUNC(R3) ; Is this a STOPT request? | 
; Br es 
21 a5 1 91 + CMPB #XD_FC_V_CANCEL, IRP$B_XDFUNC(R3) ; Is this a CANCEL request? 
S +i te 1 BNEQ ; Br if no 
OC Ad 4 AA \ BICW th TS_M_CANCEL,CDB_W_STS(R9) : Indicate that CANCEL is done 
53 63 oF 13 160$:  REMQUE (R3),R3 ; Else, remove from queue 
FEAS 30 14 BSBW ABORT Pkt ; And abort the 1/0 request 
—EO 11 015 BRB $ ; Look for more 
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53 63 0 1D2A 18 170$: MOVL (R3) ,R3 ; Move down List 
DE 1 18 D } BRB 150$ ; Continue 
i : 3 19 ; Restart output timers if not a fatal device error 
03 44 A510 0 1D2F 3584 180$: BBS #XMSV_ERR_FATAL,UCBSL_DEVDEPEND(RS),190$ ; Br if fatal error 
F 0 1034 2086 BSBW SET ogrriR ; Reset output timer 
00D8 8F BA 1037 205 190$: POPR #°MZR3,R4,R6,R7> ; Restore registers 
05 1038 5024 RSB ; Return to caller 


sets" 
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= VAX/VMS DMP11/DMV11 Device Driver 
SHUTDOWN_DEV, Shutdown the controller 


16-SEP-1984 00:48:68 oye Macro V04-00 


“SEP=1984 DRIVER. SRCIXDDRIVER.MAR; 1 


1D3C § -SBTTL SHUTDOWN_DEV, Shutdown the controller 
1b3e e 
1p : : : SHUTDOWN_DEV = Shutdown the controller 
1p c 1 : Functional description: 
4 : : This routine is called to abort all 1/0 pending on all tributaries. 
1 : 5 : Inputs: 
1p C $ : RS = UCB address 
1p C 039 ; IPL = FIPL 
1p c oe : Outputs: 
1D3¢ $¢8 : RO-R2 are destroyed. 
1D3C 044 ; 
1P3e 80ce 
103C abe9 SHUTDOWN DEV: ; Shutdown controller 
E1 1D3C 5048 6BC #UCBSV_ONLINE ,UCBSW_STS(R5),10$ ; Br if not online 
EO 1041 5049 BBS #UCBSV~XD_INITED,UCBSW_DEVSTS(R5),20$ ; Br if device inited 
EO 1046 5050 BBS #UCBSV~XD~INITING,UCBSQ_DEVSTS(R5S,20$ ; Br if device initing 
05 ier ofa) 10$ RSB 
or 3038 : Abort all 1/0 for all tribs and deallocate CDBs 
BB 104C 5055 30$:  PUSHR #*M<R3 R4 RE R7,R9> : Save registers 
D0 1050 3056 MOVL  - UCBSL_CRB(RSS ,R4 > Get CRB address 
1054 5057 ASSUME IDBS$L~CSR EQ 6 
DO 1054 5058 MOVL CRBSC_INTD+VECS$L_IDB(R4) ,R4 ; Get CSR address 
90 1058 2059 OVB  #XD_BSEL1_M_MCLR,BSEL1(R45 : Master Clear device 
1050 5060 ASSUME UCBSB_XD_OUTTIM EQ UCBSB_XD_INTIM+1 
B4 1D5D 5061 LRW UCBS$B_XD_INTIM(R5) ; Stop all timers 
1D61 206¢ ASSUME UCBS$B-XD-DUP EQ UCB$B_XD_PRO+1 
1061 506 ASSUME UCB$B-XD"CON EQ UCB$B_XD~DUP+1 
1061 5064 ASSUME UCBS$B_XD_BFN EQ UCBSB_XD_CON+1 
D4 1061 5065 LRL UCB$B_XD_PRO(RS) ; Reset all Line characteristics 
9A 1065 B06 MOVZBL S*#<MAX_BMP_TRIB-1>,R7 ; Set number of tributaries 
DO 1068 06 30$:  MOVL UCBSL_XB_CDB_VEC(RSSCR7],R9 : Get next CDB address 
13 106 $8 BEQL 40$ : Br if none 
D4 1090 $ CLRL UCBSL_XD_CDB_VEC IRD} ER? : Remove CDB from vector 
04 107 6 0 CLRL UCBSL_XD_PID_ VEC(R5)(R7 ; Zero PID entry 
4 1D7A 71 CLRW UCBSY ND CHAR VEC (RS) ER } ; Zero channel entry 
4 1D7F O76 CLRB UCB$B_XD_TRIB_VEC(R5S)CR7 ; Reset trib address 
0 1084 7 BSBW SHUTDOWN” TRIBT ; Abort all 1/0 on COB 
0 1D87 74 BSBW CLEAR co6 : Deallocate CDB and restore quota 
F4 1 A iG 40$: SOBGEQ R7,308 ; Loop if more tribs 
1p p 7 : Clear device status flags 
94 108D 5079 ° UCBSB_XD TRB_CNT(RS) : No tributaries 
1091 0 DSBINT ucese DIPL(RS) 3 Sync access to UCB 
AA 1098 1 BICW #UCBSA Ae) Lyon POMER. = 3; Reset device status flags 
1D9A 5082 UCBSW_STS(R5) : 
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FFF? 8F AA 109 3 BICwW Pe + D gr K_PEND>,- ; Reset all but fork pending 
68 AS 1DA 4 W_DEVSTST $ Bit. 
1pA 5 ENBINT ; Restore IPL 
194 5 3; Release the receive and transmit buffer map registers 
54 244A DO IDA § MOVL UcBsL_ CRBC(RS) RS ; Get CRB address 
5 D4 1DA9 90 CLRL nit slot number 
1DAB 91 ASSUME UCBSL_XD_RCV_ eens) ne _RCV> EQ ‘chet xD XMT_MAP 
56. 0004 CS 9E DAB 3 MOVAB UCBSL_XD-RCV-MAP(RS) _R et address of mapping slots 
34 AS «686 )=— 0s 1DB0 «5095 50S: MOVL (R6)+7CRBSL VINtD+VveC$u. MAPREG(R4S ; Set mapping info. 
A 19 10B4 509% BLSS 608 : Br if none allocated 
1DB6 95 RELMPR : Release the map registers 
FC AG «601tié*#B 1305 84 MNEGL #1,-4(R6) ; Reset mapping info 
10¢ 097 60$: CLRBIT a? UCB$B_XD_RCV_MAP(R5) ; Clear mapping slot fag 
BW Ce ta 19e6 B38 AOBLSS #MAX_RCV?MAR_XMT,R7, 50S ; Loop if more map registers 
135A 139 3 : Deallocate all receive buffers and complete all 1/0 request packets 
56 9996 CS 9E DCA 3102 40s: MOVAB UCBS$Q_XD win tele R6 ; Get address of first queue Listhea| 
57 06 3C DCF 510 MOVZWL #UCBS est, 45.0 QUEUES,R7_ ; Set number of queues 
53 00686 OF 1DD2 2188 80$: REMQUE a@(R6), ; Get next IRP/buffer 
29. 1D 1006 5105 BVS ; Br if none - aw empty 
OA OA AS 91 1008 5106 CMPB RP$B_TYPE(R3) ,S“#DYNSC_IRP : Is this - 
13 1D0C 2182 BEQL ; Br if yes 
17 OA A3 91 1005 108 CMPB IRP$B_TYPE(R3) ,S*#DYNSC_NET ; Is it a ceeEres buffer? 
13 1DE2 5109 BEQL ; Br if y 
10e sii BUG. CHECK NOBUFPCKT,FATAL ; Else, {etal error 
1DE8 16 3: IRP 
1DE8 113; 
44 A3) D4 1DE8 114 $0s: CLRL IRP$L_COB(R3) ; Definitely no CDB 
FODF 30 DEB 5115 BSBW ABORT_PKT ; Abort the 1/0 request 
E2 1 IDF 118 BRB 80$ ; Get next entry 
1DFQ 5118 : Receive buffer 
1DF 213) 
50 53 DO 10F 120 1108: MOVL 3: Set receive buffer address 
42 A5 AO 1DF3 5121 ADDW ucéty -DEVBUF SIZ(R5) ,~ + Restore quota 
0136 C5 1DF6 51 ; UCBSW_xXD_Q R5) : 
00000000'GF 16 1DF9 51 JSB SEO ASRODEALMER : Deallocate the receive buffer 
D1 11 ire ! 3. BRB 80$ 3; Get next entry 
ie : ! $: 3 Loop to next queue 
56 08 CO 1€01 5128 i208: ADOL #8,R6 ; Skip to next queue Listhead 
cB 5 F5 1ERs : . 3 SOBGTR R7,80$ ; Loop if more queues | 
1607 1 1 : Restore the buffered 1/0 quota to the starter 
50 Q2A0 CS 3C 1€07 51 ¢ MOVZWL UCBSL_XD oPipies) 8 ; Get process index of starter 
51 00000000'GF DO 1€0c 5134 MOVL  G*SCHS 2) gf? : Get address of PCB address vector 
2° i. DO 1&1 135 MOVL (R1)CR ; Get PCB address of starter 
02A0 C 60 AO D1 1€1 1 $ CMPL ah + $L ROAD UCBSL_XD_PID(RS) ; Still the same process? 
1 is 1E1D 1 BNEQ ; Br if not 
50 6080 C 4 1E1F 138 MOVL st JIBCR :; Get JIB address 
51 136 €¢ C 1624 5139 MOVZWL UCBSW7XD BAUOTAERS), RI : Convert quota to longword 
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1E3A re -SBTTL REG_DUMP, Device register dump routine 
1E3A 8128 : +s 
if r 143 : REG_DUMP, Dumps the contents of device registers to a buffer 
3 A 1 ; Functional description: 
1E3A 51 : ; Writes the number of longwords returned, and the contents of the 
3 r 133 ; device registers into a diagnostic or error buffer. 
i 4 136 ; Inputs: 
1E3A 138 : RO = Diagnostic buffer address 
iF : 127 3 R5 = UCB address 
TESA 5161 ; IPL = FIPL 
HH 168 ; Outputs: 
IE A 165 ; RO is destroyed. 
1E3A 5167 : RS is preserved. 
1E3A 5168 ; 
ERR i 
1E3A 5171 REG_DUMP: ; Dump device registers 
80 03 9A 1E3A 2176 MOVZBL #3,(RO)+ ; Store # of longwords returned 
1E3D 517 ASSUME UCBSL_XD_SEL4 EQ UCBSL_XD_SELO+4 
80 0206 C5 7D 1E3D 5174 MOVQ UCBSL_XD-SELO(RS) , (RO)? ; Store all CSR registers 
80 44 A5 D0 1€42 5175 MOVL UCBS$L_DEVDEPEND(R5) , (RO)+ ; Store device dependent longword 
05 1646 5176 RSB ; Return 
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24 Al 80000060 F 
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PUSHL 
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CLEAR_CDB: 
MOVL 


50.59 
51 00990000 Sf 
51 140 
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ice Driver 16-SEP-1984 :28: AX/VMS Macro v04-00 
fe met 90:48:69 LORIVER. SRCIXDORIVER.MAR; 1 
-SBTTL RETURN_IRP, Deallocate IRP 
-SBTTL RETURN-CDB, Deallocate (0B 
~SBTTL CLEAR_COB, Deallocate CDB 


RETURN. IRP = Deallocate IRP (Called from IOPOST) 
Br LURN COB = Deallocate CDB (Called from IOPOST) 
LEAR_CDB - Deallocate CDB (Called from CANCEL or the Fork Process) 


Functional description: 


These subroutines are called to deallocate the CDB and restore the byte 
count quota. 


Inputs: 
R5 = IRP address (RETURN_IRP entry only) 
RS = CDB address (RETURN CDB entry oot? 
R9 = CDB address (CLEAR_CDB entry only 
IPL = FIPL 

Outputs: 


RO-R2 are destroyed. 
R9 destroyed if CLEAR_cDB entry. 


Deallocate the IRP 
Copy IRP address 
Dea locate the IRP 


Deallocate the CDB 
Ro 


R5,RO 
JMP G* COMSDRVDEALMEM 


US R9 ; Save 
MOVL R5,R9 ; Copy CDB address 
MOVL IRP$L_MEDIA(RS) ,CDB_L_PID(RS) ; Move PID to geever place 
BSBB CLEAR_CDB ; Deallocate 
POPL R9 3; Restore R 
RSB ; Return to caller (IOPOST) 


Deallocate CDB 


OV RY ee Copy CDB address 

MOVL fob L (RO) RY Get P 

JSB G>CORSDRVDEALAER Dealiocate the CDB 
MOVZWL R9,RO Get process index 
MOVL Grecusat pc PCBVEC,R1 Get address of PCB vector 
MOVL Get PCB address 


CMPL PCBSL RPibeRI), R9 


MOVL PCBSL JIBCRI), R1 
ADDL #CDB_C_LENGTH, JIBSL_BYTCNT(R1) 
ADDL #CDB_C"LENGTH, att ihe “BYTLM(R1) 


Is this the same PID? 

Br if not - just leave 
Get JIB address 

Restore e byte count quota 
--and | 

Return he caller 
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Find an empty slot in translation vector 


/DMV11 Device tee 
d an empty slot in transl 


~-SBTTL FIND SLOT, 
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sets" 


= VAX/VMS DM 


“UO 


360 
; FIND SLOT = Find an empty slot in the translation vector 
> Functional Description: 


3; This routine is called to return the index of the first available 
; slot in the translation vector starting from the hash point. 


: Inputs: 


R3 
R5 


Outputs: 


IRP address 
UCB address 


RO = status return 
R1,R2 = destroyed. 


If success: 


IRPSB_INDEX(R3) = Index of empty slot in translation vector. 


DUPVDVIV IU DULV SUSU IVIL LUSDUSIUSVLULVSLVSUSUSVSVSUSUSVS SUSI USUI VOSS ISIS ISIS 


SSSI SSNS DDD DDD DDS TT BS EEE EAN 
NAUSEA SO OD NAUE WN O OD NAMES WW OOD NOU EWR" OOONOUSW I— 


FIND_SLOT: 


Find empty slot in vector 


AS 05 = 00 o EXTZV #0,45,IRPS$L_PID(R3),R1 : Get start hash 
52 €2B0 CF C MOVZWL WAMAX. waTR B,R 3; Get size of vector 
50 E2AB CF 3¢ MOVZWL MAX W-TRIB,RO : Get number of tribs 
50 50 02 COM RO ai-' 3; Get complement for modulo 
0158 C541 dS 10$: TSTL UCBSL_XD_PID_VEC(R5)(R1] 3 = i ta 
0B 13 BEQL 20 : 
51 06 INCL R1 ; Set ter + slot 
51 50 CA BICL RO : Modulo the trib count 
git Bee. SOBGTR R2 : Br if more 
50 D4 CLRL RO : Indicate error 
05 RSB : Return in error 
3; Empty slot found - save in IRP 
41 a3 51 20$:  MOVB  R1,1RP$B_INDEX(R3) : Save index 
50 01 MOVZWL S*#SS$ NORMAL ,RO ; Set success 
RSB ; Return to caller 


vw 
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-SBTTL FIND_TRIB, Find CDB from trib address 


sets Poi 


+ 
FIND_TRIB = Find COB from trib address 
Functional Description: 


This routine is called to return the CDB address for a given tributary 
address. The tributary address vector is scanned to make the comparison. 


Inputs: 


RO = tributary address 
R5 = UCB address 


Outputs: 


RO = status return 
If Success: 
R9 = CDB address 


2 HS “QOOCDOOOOCOCOC OOO OOOOOOOWMMDcccaccG —-— 
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FIND_TRIB: : Find COB from trib address 
PUSHQ = R1 3; Save R 
52 50 0 MOVL  RO,R2 : Copy trib address 
0138 (5 «6 E282 CF 252s 3A LOCC R2,MAX_W_TRIB,UCBSB_XD_TRIB_VEC(RS) ; Find trib in vector 
1613 BEQL 108 ; Leave if not found (RO = 0) 
CS o9E MOVAB UCBSB_XD_TRIB_VEC(RS),R2 ; Get address of trib vector 
= te SUBL2 R2,R1 ; Calculate index 
41 dO MOVL UCBSL_XD_CDB_VEC(R5)CR13,R0 ; Get CDB address 
06 13 BEQL 10$ : Leave if none 
50 600 MOVL RO,RO ; Return CDB address 
01 «3C¢ MOVZ2WL S*#SS$_NORMAL RO > Set success 
10$: POPQ R1 ; Restore R1, R2 
05 RSB ; Return to caller 
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19 ~SBTTL XLATE, Translate PID and Channel to CDB address | 
;SBTTL XLATE ALT, Translate PID and Channel to CDB address 


+ 
aa 


XLATE = Translate PID and Channel to CDB address | 
; KLATE_ALT = Translate PID and Channel to CDB address | 


Functional Description: | 


This routine is called to return the CDB address for a oe 

; channel. If the controller is running in point to a mode or 
the controller is a tributary then it is assumed that the first 

hash into the CDB address vector has the one and only CDB address. 


This routine hashes the low order 5 bits of the PID to start the 
search. This should optimize scanning of the PID vector only if 
the CDB already exists. 


| 
Inputs: | 
| 
| 


Bee Se Se Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Se Ge Se Se Se Ge Ge Se Se Se Se Ge Se Se Se Ge Se Sete 


IEEE 

1EEE 

IEEE 

IEEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 

1EEE 833 

1EEE 533 RO = PID (XLATE_ALT only) 

1EEE 534 R3 = IRP address 

343 2 r RS = UCB address 

iEcE 23 Implicit Inputs: 

1EEE ae¢ IRPS$SL_PID(R3) = PID of requestor (XLATE only) 

443 5 ? IRP$W_CHAN(R3) = Channel of requestor 

ler ER | onoue 

1EEE 5350 RO = status return for success of call. 

IEEE 2 : R9 = CDB address (if success, else zero) 

1EEE 5 33 R1,R2 are destroyed. | 

1EEE 5354 

IEEE 3356 3 | 

1EEE 5357 XLATE 3 Trenstate IRP into CDB address 
DO 1€E 535 OVL IRPS$L_PID(R3) ,RO 3; Get PID 

IEF 359 XLATE_ALT: $ iitesaate translation entry 
Bo 1EF 369 PUSHL R3 ; Save IRP address 

C 1EF4 61 MOVZWL IRPSW_CHAN(R3) ,R3 ; Get channel 
10 1EF8 $¢ BSBB XLATE_PID_ CHAN’ ; Translate PID and channel 
8EDO EFA 6 POPL 3; Restore IRP address 

E9 Ha rt: : BLBC RO,10$ :; Br if error | 

1F00 66 : Found PID and Channel in translation vector, get CDB address 
90 1F00 5368 ° MOVB RP$B_INDEX(R3) : Save index in IRP 
DE i 4 $3 MOVAL Océst meta VEC(RS)CR1I],- : Store address of CDB address | 
90 1F0B 5371 MOVE COB B“TRB_ADDR(RO) ,~ ! Store trib address also | 

TEE 3376 IRPSQ-STATION(R3) ; | 
05 seis Y 108: RSB ; Return to caller | 

1F11 75 : The Following entry point is called by the CANCEL routine also. 


ay 
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Inputs: 


7 = PID 
R3 = Channel for request 


Outputs: 


RO = Status return for request 


R9 = COB address if success, else zero 
LATE_PID_ CHAN: 


EXTZV #0,#5,R0,R1 

BBS nee XB_PTP,UCB$W_DEVSTS(RS), 
Bec axnsy CHR “CTRL, UCBSC_DEVDEPEND(R 
CMPL RO, UCBSL_XD_PID_VEC(R5S)CR1) 
CMP UCBSW_XD_CHAN_VEC(RS)(R1] 
BeaL © 40 

INCL R1 

BICL #*C<31>,R1 

CMPL = R11, R2 

BNEQ 10 

MOVZWL #SS$_DEVOFFLINE,RO 

at ae 


match on PID and Channel 

MOVL USE MO COO _VECIADIERTI AD 
BEQL 

+ a S*#SS$_NORMAL ,RO 


SSEp=1986 00:19:00 


5), ios 


AX/VMS Macro v04-00 Page 120 | 
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: rrenti one PID $2 indice mee COB addr | 


ash PID inte 


abs" Br ‘' point to poin nt. 
Br if not control station 


Save seart hash 

pipe match? 

Br if not 

Channels match? 

Br if yes - got it 
Else s$s to next entry 
Mod dulo 3 

Back to we 

Br if more to check 
Return channel offline 
Return zero in R9 
Return to caller 


Get CDB address 

Br if no CDB address - error 
Set successful return status 
Return 
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-SBTTL GET_CDB, Get CDB address from IRP 


ses ct 


GET COB - Get CDB address from IRP 
; ; Inputs: 


2 4) —) 9 2 ss ts 


a = IRP address 
R5 = UCB address 


Implicit Inputs: 

IRPSL_CDB(R3) = address of CDB address (pointer into UCB vector) 
: Outputs: 

G 


RO = status of reques 
R9 = COB address if in UCB vector 


SO tn 4 bs 2 2 ss 2) a a a a a tb 9 a om 


QPUPVPVPVLIUDUSVLIULUSVLUSULUSVS VLU USVI VST USES 


BERR RR RRR PPP PPE EPP P PPP PPP PEPE 


ET_CDB: ; Get COB address from IRP 
59 44 a3 DO MOVL IRPS$L_CDB(R3) ,RO ; Get address of CDB address 
06 12 BN ; Br if present 
3 BUG_CHECK NOBUFPCKT,FATAL ; Else, fatal error 

— eS UF 10$: MOVZ2WL S“#SS$_NORMAL ,RO ; Assume good CDB address 
59 69 8 ; MOVL (RO) RO ; Get CDB address 

03 1 BNEQ ; Br if good 
50 2c 3 4 MOVZWL #SS$_ABORT,RO ; Else, abort the request 

05 41 208: RSB ; Return to caller 
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-SBTTL CHG_UCB, Change UCB parameter values 


+ 

CHG_UCB = Change UCB parameter values 

Functional description: 

This routine is called to initialize the UCB with new P1 and P2 buffer 


characteristics. It is assumed here that the parameters have already 
been validated. 


Inputs: 


R3 = IRP address 
R5 = UCB address 


IPL = FIPL 


Outputs: 


RO-R2 = destroyed. 


CHG_UCB: 


PUSHL 
BLBC 


; Change UCB parameters 
RG ; Save 
IRPSL_MEDIA(R3) ,10$ ; Br if no P1 buffer 


: Set new Pl buffer characteristics 


BBS 


ASSUME 
INSV 
BISL 


; Br if device inited 


#UCBSV_XD_INITED,UCB$W peysTste (R5),5$ 

j SIZ(R5) ; Set new buffer size 
es 
5) 


),5 
IRPSL_MEDTA+2(R3 ) UCB SO_ DEVBUFS12(R 
41 -| NE_MASK EQ FF> 
meDIReetR DEVDEPEND (RS) Res 


set all Read/Write flags 
TRéSL” MEDIA+4(R3) ,UCBSL " DEVDEPEND ( 


; Set new characteristics 


: Now update UCB based on P1 buffer 


ASSUME 
CLRB 
BITB 
BEQL 
ASSUME 
INCB 
BBS 
ASSUME 
INCB 
BBS 
MOVB 
ASSUME 
CLRB 
BBC 
ASSUME 


NMASC =} Jee PO as 0 
UCBsB x ROC(R ; Assume point to point mode 
An CHR DMC! XASM_C - Is this point to point mode? 


AMSA” mean _UTRLucBsc “DEUDEPEND(RSS ; 
Ss : br it yes 
NMASC_LINPR_CON EQ 1 


UCB$B~ XD ” arn) 3 Assume control station 
aX V=CH ; Br if control mode 
UCBSL “DE VBEPENS (RS) 6$ ; 
NMASC~LINPR TRI £0 a2 
ycase xP PROCR ) ; Assume trib station 
aXmMsSv RIB : Br if trib station 
UCase “DEVBEPEND(RS) 6 
#NMASC_LINPR_DMC,UC $3. XD oad i Must be DMC compatible mode 
MASC_CINCN ROR EQ 
UCB$B-XD_COR(RS) ; Assume normal mode 
XMSV—CHR_LOOPB,- ; Br if not loopback mode 
UCBSL “DEVBEPEND(RS) ,7$ : 


MASC"LINCN_LOO EQ { 


voo-000" 
O2AA CS 
O2A9 
04 44 y 
O2A9 C5 


OR 


02A9 ce 


O2A4 (551 


O2AA C5 
05 


000000C0 8F 
44 AS 
05 
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CHG_UCB, Change UCB parameter values 
96 IFA 9 INCB 
1FB 7$: ASSUME 
94 1FB § CLRB 
E1 1FB4 55 BBC 
1FB é 4 
1FB 5 ASSUME 
96 1FB 5 § INCB 
1FBD 2 
1FBD 8 
1FBD 5509 
1FBD 5510 
pO 1FBD 31] 10$:  MOVL 
3 1FC \¢ MOVAB 
30 1FC 51 BSBW 
1FCB8 $514 
FCB 5515 
at 21§ 3 
9A 1FC 51 ROvzet 
94 1FCB 218 CLR 
1FCE 551 ASSUME 
9A eck 5520 pte 
13° 1FD 521 BEQ 
1FD5 55 § 
1FDS 55 ASSUME 
D6 1FDS 5524 INCL 
D? #1FD7? 5525 DECL 
12 1FD9 5526 BNEQ 
1FOB 5527 SETBIT 
11 1FEO 5528 B 
1FE 22 9 
1FE 530 15$: ASSUME 
D7 FE2 5531 DECL 
12 1FE4 55 § BNEQ 
D6 43 223 INCL 
1FE 534 SETBIT 
11 1FED 5535 RB 
1FEF 238 
1FEF 5537 208: SETBIT 
D4 1FF4 235 CLRL 
1FF6 22 
78 1FF6 5540 30S: SHL 
1FFA 5541 SETBIT 
1FFF 226 ASSUME 
95 1FFF e¢ TSTB 
12 2003 44 BNEQ 
D6 One 545 INCL 
007 278 CLRBIT 
90 200C 5547 40$: Ove 
11 +5548 CLRBIT 
16 5549 ASSUME 
95 16 5550 TSTB 
13 1A 23) BEQL 
1¢ § SETBIT 
1 22 50$: CLRBIT 
D3 6 4 BITL 
C 5555 
12 —E 5556 BNEQ 


AX/VMS Macro V04-00 
DRIVER. SRCIJXODRIVER.MAR; 1 


SSE=1986 00:19:00 


UCB$B_XxD Concne? ; Must be loopback mode 
NMASC-DPR_FUL EQ 0 

UCB$B_XD_Bup(r5) ; Assume full duplex 
#XMSV_CHR_HDPLX,- ; Br if not half duplex 
UCBSL-DEVDEPEND IRS) , 108 : 

NMASC_DPX go 1 

UCB$B_XD *BUPIR ; Must be half duplex 


: Set new P2 buffer characteristics 


R5,R ; Copy UCB address 
PP ae Pye R1 ; Get address of verification table 
UPDATE_P ; Update the UCB 


: Set device characteristics and device mode definition 


$*#1,R1 3; Assume ertet to point mode 
UcBSL -PENPR BOT Ea. ; Reset all characteristics 
ures. XD NPROCRS) © R? ; Get protocol mode 

; Br if point to point mode 
NMASC_LINPR_CON EQ 1 
R1 ; Assume control station mode 
R ; Control station mode? 


15$ ; Br if not 
#XMSV_CHR_CTRL ,UCBSL_DEVDEPEND(RS) ; Indicate control station 


NMASC_LINPR_TRI EQ 2 

R2 $ poreyrery station protocol? 

208 3 A ifn 

R1 . acde to trib station 

#XMSV_CHR_TRIB,UCBSL_DEVDEPEND(RS) > ; ‘indicate tributary station 

30$ ; And continue 

#XM$V_CHR_DMC ,UCBSL -DEVDEPEND(R5) Must be DMC compatible mode 
R1 > het mode to DMC compatible 


1,R1 Shift for mode definition code 
xisy_ fun R -HOPLX-UCBSL_ DEVDEPEND (AS) ; Assume half duplex mode 
$B-XD O puetRs) ; Full duplex mode? 
: e. " A, - okay 

s devies mode 
axmsy CHR HDPLX x -UCBSL_ DEVDEPEND(RS} : i Set te full auplen aede 
ai ave CB$B_ XD Save device mode (DMP format) 
v ca Pobee. UCBSL _DEVDEPEND (RS) ; Clear loopback bit 

ANY, “LINCN £20 ~ 

cose. XD_ CORCRS) : Is Line in normal mode? 


: Br if yes 
#XMSV_CHR_LOOPB,UCBSL DEVDEPEND (RS) : Set Loopback mode 
#uCBSt x XD"PTP, uCBsw DEVSTS(R5) ; Assume not 

M$M_CHR™ CTRL HR_TRIB,~ ; Is this tri 


t 
XMSM= ctrl station? 
UCeSL ~DEDEPEND CRS) : 
; Br if yes 


X00 
v04 
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CHG UCB, Change UCB parameter values $73 -1bbe 90:98:85 YORIVER. SREIXDDRIVER.MAR; 1 ° (52). 


7 SETBIT #UCBSV_XD_PTP,UCBSW_DEVSTS(R5) ; Else, indicate pt-pt 
54 BEDD 8 60$: POPL RG ; Restore R4 
0 $B ; Return to caller 


tL CC CE CL LLL ee 
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YO. 000 CHG_CDB, Change CDB parameter values misty 7 $8: 98:60 DRIVER.SRCIXDORIVER.MAR; 1 (83) 
6} -SBTTL CHG_CDB, Change CDB parameter values 
9 8 3 ++ 
2 rt: ; CHG_CDB - Change COB parameter values 
| $6 3; Functional description: 
6 9 68 ; This routine is called to initialize the CDB with new P1 and P2 buffer 
039 287 : characteristics. It is assumed here that the parameters have already 
039 0 ; been validated. 
BS Emu 
; Inputs: 
9 256 3 
039 5574; R3 = IRP address 
039 5575: R5 = UCB address 
039 2/8 3 R9 = CDB address 
039 5577 ; 
039 5578; IPL = FIPL 
039 5579; 
039 5580 ; Outputs: 
039 228) 3 
039 55 ¢ 3 R1,R2 = destroyed. 
039 22 jo 
039 5584 
039 5585 CHG_CDB: ; Validate P2 buffer 
54 DD 2039 2258 PUSHL R4 : Save R4 
1D 38 A3 E9 S14 22er BLBC IRPSL_MEDIA(R3) ,10$ ; Br if no P1 buffer 
tH 5385 : Set new Pl buffer characteristics 
FFFFD700 8F CA 203F 5591 BICL #*C<P1_TRIB_MASK>,= ; Clear all but special 
69 045 339¢ CDB_L_BEVDEPEND(R9)  .. fields in CD 
00002800 8F CA 2046 559 BICL  #XMSM“STS_ACTIVE!XMSM_STS_RUNNING,- ; Clear special fields 
C A 04C 5594 IRPSL_MEDTA+4(R ; ..from IRP 
69 CA C8 204 595 BISL IRP$SL—~MEDIA+4(R3) ,CDB_L_DEVDEPEND(R9) ; Set new characteristics 
052 5596 ASSUME NMASC-STATE_ON EQ 0 
05 223/ ASSUME NMASC_STATE_OFF EQ 1 
4F AD 96 «205 598 CLRB CDB_B_MST(R9) ; Assume MOP 
0369 00 €0 09 3599 BBS #XMSV"CHR_MOP,CDB_L_DEVDEPEND(R9S,10$ ; Br if true 
4F AD 96 Be? tit INCB CDB_B_MSTTR9) ; Else, NORMAL mode 
Bae O06 3; Set new P2 buffer characteristics 
54 59 00 O9¢ 604 10$: MOVL. R9,R4 ; Copy CDB address iss 
51 €067 CF 9 SF 5605 MOVAB TRIB PARAM,R1 ; Get address of verification table 
3 064 on6 UPDATE _P2 ; Update CDB 
51 OE AD 9A bee 6 MOVZBL CDB_B_TRB_ADDR(RI),R1 ; Get trib address 
40 a3 5190s: 206B «56 8 RI TRPSa STAT ION(RS) t Return trib address 
52. 41 a3 9A 6f 6 MOVZBL IRP$B_INDEX(R3) ,R2 : Get vector index 
0138 (542 51 (90 : 610 Ri UCB B XD TRIB VEC(RS)(R2] __; Set new trib address 
79 (5611 CLRBIT #XMSV_CHR NOP .CDB_L _DEVDEPEND(R9) ; Assume not MOP mode 
7D 61g ASSUME NMASC"STATE_ON EQ 
70 61 ASSUME NMASC_STATE OFF y 1 
04 4F AD sOEB 7D 5614 BLBS CDB_B_MST(R9) ,20 ; Br if MAINT state is OFF 
1 5615 SETBIT #XMSVZCHR_MOP.CDB_L_DEVDEPEND(R9S ; Else, indicate MO 
54 BEDO 5 616 20$: POPL  R4 ; Restore R4 
0 8 561 RSB ; Return to caller 


SS 
eS 
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04.005 VALIDATE Po. Validate py buffer paramet mi ioe 1 90:48:69 DRIVER. SRCIXDDRIVER.MAR; 1 . (54) | 
9 $18 -SBTTL VALIDATE_P2, Validate P2 buffer parameters 
9 0 ~SBTTL VALIDATE_P2_CDB, Validate P2 buffer with CDB 
4 ° 1 -SBTTL VALIDATE_P2_UCB, Validate P2 buffer with UCB 
9 56 : p++ 
9 5624 ; VALIDATE_P2 = Validate P2 buffer parameters 
9 5625 ; VALIDATE_P2_CDB = Validate P2 buffer with CDB 
4 ? § ; VALIDATE=P2_UCB = Validate P2 buffer with UCB 
089 5628 ; This routine is called to validate the P2 buffer parameters. The parameters 
089 5629 ; are checked against a parameter table which verifies that the minimum value 
8 4 ? ? 3; and maximum value is not violated, and that invalid status flags are not set. 
4 ? § : Inputs: 
089 5634 ; R1 = Address of parameter verification table (VALIDATE_P2 entry only) 
089 5635 ; R2 = Status word from UCB or CDB 
089 5636 ; R35 = IRP address 
089 5637 ; R4 = UCB or CDB address for value checking (VALIDATE_P2 entry only) 
089 O38 3 R5 = UCB address 
+43 287) : R9 = CDB address (VALIDATE_P2_CDB entry only) 
+94 sect 5 IPL = FIPL 
BB EEE | ours 
089 290? 3 RO = status return of parameters 
089 5646 ; 
089 5647 ; If no error: 
089 5648 ; R1 = Address of parameter verification table 
089 5649 ; If error: 
+94 2620 : R1 = Bad parameter value 
089 $26 3 ALL other registers are preserved. 
OBS S68 
+94 5655 -ENABL LSB 
089 2028 VALIDATE_P2_CDB: 3 Validate P2 buffer with COB 
54 0D 2089 282 PuSAL R4 3: Save R4 
51 €03B8 CF 9E€ ¢€0 028 MOVAB TRIB_PARAM,R1 3; Get address of verification table 
54 59 00 3 92 MOVL R9,RG ; Copy CDB address 
0A 11 2093 5660 BRB o$ ; 
095 5661 VALIDATE _P2_UCB: ; Validate P2 buffer with UCB 
54 DD B38 66 PuSAL 4 ; Save R4 
51 DFDD CF 9E 9 66 MOVAB LINE_PARAM,R1 ; Get address of verification table 
54 55 00 9C 5664 MOVL P 3 Copy UCB address 
4 10 9F 5665 108: BSBB VALIDATE_P2 : Do the validation 
4 8ED0 Al $66 POPL R4 3; Restore R4 
05 AS 566 RSB ; Return to caller 
ne 008 -DSABL LSB 
5 rif VALIDATE_P2: ; Validate P2 buffer parameters 
O3EE 8F 6B AS 5671 PUSHR = #*M<R1,R2,R3,R5,R6,R7,R8B,RI> ; Save registers 
Ag or¢ ; NB:R1 must be on top of stack 
56 2C Ad OD AD 567 MOVL {ROSL_SVAPTE (RS) RG ; Get system P2 buffer address 
03 1 AD 5674 BNEQ 0$ ; Br if a system buffer 
0086 = 31 AF 5675 BRw 150$ :; Else, leave 


XDt 


ww 
ww 
wu 
—— 


a 
1 

Ay 
EO8C CF ; 


0138 
51 


51 


02 
OE 
51 


61 


Se 


WWII Pony 3 2 2 OOOO TTT HHH tf ttitutututubibitetetotctetatetet titted 


OOrnr "> OOU YS 


Sows WW Ol O-UmMuUo 


SoGno —OW—TMWP OOMO 


OO dd ad dd ed = = I I OHOO DOO OOOO OCOCOOCOCOOOCOCOOCOCOCOOOCOCOO 
DOWDWWDOOPF SLNMOCW OFSOOOWOCITTS PNWOOU 


UPTV LV LVLVLVLVLVLVLVSIULVLULVIUSUIVLVSVSV SVS 


DOOOAOOOO CL "S 


ou 
—/o 
—— 


5 
0 


F 12 
MP11/DMV11 Device Driver 16-SEP-1984 00:28: AX/VMS Mac 
VALIDATE _P2_UCB, Validate P2 buffer wit 5-SEP-1984 69:49:60 


ro V04-00 Page 197 
DRIVER. SRCIXDDRIVER.MAR; 1 (54) | 


76; 
$5 ; Make sure that if trib address given, that it is unique, or belongs to this 
o78 ; circuit. 


680 10$: MOVL  R2,R9 : Save status word 
68) MOVZWL #NAASC PCCI TRI,R1 ; Get trib address 
6 ¢ BSBW UNPACK~P2_B0F 3 From P2 buffer 
6 BLBC . ; Br if no trib address 
684 LOCC R2,MAX_W_TRIB,UCBSB_XD_TRIB_VEC(RS) ; Try to find same trib address 
685 BEQL ©. 208 : Br if unique | 
6 § MOVA UCB$B_XD_TRIB_VEC(RS) ,R8 ; Else, get address of trib vec 
6 SUBL ; Calculate index 
688 CMPB RPSB_INDEX(R3) ,R1 : If not unique, must be same CEB 
rt So vouL #NMASC_PCCI_TRI,RO ; ods sped eke 
6 . _TRI, ; Return bad parameter 
4 BRW 170$ 3; Else, error 
693 20$: MOVL R9,R2 ; Restore status word 
694 MOVZWL IRP$W_BCNT(R3),R8 : Get size of P2 buffer 
5695 DIVL R ; Calculate number of parameters 
96 MOVL P2B_L_POINTER(R6) ,R6 ; Point to start of P2 data 


; Loop to check next parameter in P2 buffer 


S0s: re (R6)+,R0 Get parameter type from P2 


(R6)+,R5 ; Get parameter value from P2 

MOVL (SP) ,R7 ; Get parameter table address 
3; Loop to check P2 buffer parameter to Line parameter table 
40s:  mMOVW  (R7)+,R9 ; Get parameter + flags 

BEQL 170$ ; Br if end of verify table 

CMPZV) «=#PRM_V_TYPE,#PRM_S_TYPE,R9,RO ; Parameters match? 

BEQL 50$ ; Br if yes 

TSTwW (R7)+ ; Skip offset word 

SKIP PRM_V_MIN,R9,R7 ; Skip minimum value 

SKIP PRM_V_MAX,R9,R7 ; Skip maximum value 

SKIP PRM_V_INVALID,R9,R7 : Skip invalid flags 

BRB 40$ ; Try next parameter 


: Match found - nullify if same value & check min,max,valid, invalid 


§0$:  mOovW  (R7)+,R1 Get offset + width 
T ; Is data structure present? 


100$ ; Br if not - check values 

EXTZV #OFF_V_WIDTH,#OFF_S_WIDTH,R1,R3 ; Get width onl 

EXTZV #OFF-V"VALUE ,#OFF-S-VALUE.R1,R1 ; Get offset only 

ADDL R4,RT 3; Calculate address of datum 

CASE R3,TYPE=B,LIMIT=41,<- ; Br to handler 
go§,- ; Byte value 

0$,- ; Word value 

80$> ;  Longword value 


: Byte value in structure 


&0$:  CMPB = R5,(R1) 


Is this the same? 
BRB 90$ 


Check result 


NNN OOOO 
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yo 008 VALIDATE Po UCB, Validate P2 buffer wit ety 7 8:98:85 LORIVER. SREIRDDRIVER.MAR; 1 . $2) | vO« 
1 4 3 3 
} 4 4 : ; Word value 
61 55 B1 2138 57 6 70$: CMPW R5,(R1) : Is this the same? 
03 11 13 f BRB 90$ : Check result 
61 55 01 14 7 § gos: CMPL R5,(R1) : Is this the same? 
05 12 2143 5740 908: BNEQ 1068 ; Br if no = continue checks 
FA AG B4& 214 741 CLRW =-6(R6) : Nullify the parameter code 
18 «O11 133 og BRB 140$ ; Try next parameter - skip checks | 
05 59 Of E1 214A 5744 100$: 6BC #PRM y MIN,R9,110$ : Br if no minimum value 
87 B1 214 745 CMPW R5,(R7T+ ; Is the value too small? 
"6 OW COS rs BLSSU 1 ; Br if yes - error 
05 59 Op —1 215 747 1108: B6BC #PRM y MAX,R9,130$ ; Br if no maximum value 
87 5 Bi 215 be CMPW RS, (R7S+ i Is the value too big? 
11 1A 215A 574 BGTRU 17 ; Br if yes - error 
05 59 oF E1 15 750 130$: BBC #PRM_V  anmeesstemnabciei : Br if no invalid flags 
52. 8B B3 216 751 BlTw (R7)F,R 3 Check invalid bits 
08 ig 16 P36 BNEQ 1 ; Br if on = error 
85 58 OF 192 5784 140$: SOBGTR R8,30$ ; Loop if more parameters 
we 188 755 150$: MOVZWL S*#SS$_NORMAL,RO ; Set success return | 
06 «11 «4 2728 BRB 180$ 3 And return 
6—€ 50 3C 2160 aFee 170$:  MOVZWL RO,(SP) 3; Return bad parameter code 
170 5759 ; * R1 Must be on top of stack 
50 14 3X ie 5760 MOVZWL #SS$_BADPARAM,RO ; Set error return 
O3EE 8F BA 2173 5761 180$:  POPR #°M<R1,R2,R3,R5,R6,R7,R8,R9> ; Restore registers 
05 2177 5762 RSB ; Return to caller 
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res -SBTTL UPDATE_P2, Update UCB/CDB based on P2 buffer parameters | 
? 


++ 
reo ; UPDATE_P2 = Update UCB/CDB with P2 buffer parameters 


RO = destroyed. 
ALL other registers are preserved. 


768 : 
; This routine is called to update the UCB/CDB with the P2 buffer peranseers: 
; The parameters are stored in the appropriate cells of the UCB/CDB. 
; Inputs: 
: R1 = Address of parameter verification table 
: R3 = IRP address 
: R4 = UCB or CDB address for storing 
3 R5 = UCB address 
; IPL = FIPL | 
> Outputs: 


ead aed an ad a a ee ce en an a ee ee cn ce ce cae ee cae cn ed ce a a ee ed ca ce ed ee en ed ct ec ce ee ee ce ee ee ee ee ce eed ce ee ee ee ee ee ee eet ce 
MA QOODODOO0OO OOO 000 OO O00 0009 09 0909 09 09 0908 SINSI SIN NN NNNIO 


G000096009600000 000069 00 G9 09 00 G9 09 0909 C908 SIN SINISE 


0 
4 
; 
8 
S 
0 
1 
bares 
8 : H 
g Sr? 
8 8 UPDATE_P2: ; Update the UCB/CDB 
O3E6 8F BB 8 5789 PUSHR #*M<R1,R2,R5,R6,R7,R8,R9> ; Save registers 
C 2 0 ; NB:R1 must be on top of stack 
56 2C A3 00 C 1 MOVL a tert deals ; Get system P2 buffer address 
6¢ 1 § 2 § BEQL 0$ ; Br if no system buffer 
58 32A 3¢ MOVZWL IRPS$W_BCNT(R3) ,R8 ; Get size of P2 buffer | 
58 06 C6 6 5794 DIVL #6, 3; Calculate number of parameters 
56 66 00 ; é 2 MOVL P2B_L_POINTER(R6) ,R6 ; Point to start of data 
: i > Loop to get next parameter from P2 buffer | 
50 86 C C 9 ios: MOVZWL (R6)+,RO0 3; Get parameter type from P2 | 
55 86 00 F : 0 MOVL (R6)+,R5 ; Get parameter value from P2 
57 6E g 1 MOVL (SP) ,R? ; Get parameter table address 
: : 5 : Loop to store buffer parameter in UCB/CDB | 
: 
59 = 87 69 5 5 208: MOVW (R7)+,R9 ; Get parameter + flags 
47 1 8 $ BEQL :; Br if end of verify table 
59 g¢ 99 EF A EXTZV #PRM_V_TYPE,#PRM_S_TYPE,R9.R1 ; Get type field 
1 81 F $ CMPW RO,RT ; Parameters match? 
16 13 2 BEaL §=s«430 : Br if yes 
87 =6B5 4 0 TSTW (R7)+ : Skip offset word 
6 1 SKIP PRM_V_MIN,R9O,R7 : Skip minimum value 
§ SKIP PRM_V_MAX,R9,R7 ; Skip maximum value 
SKIP  —- PRM“VINVALIO,R9.R7 : Skip invalid flags 
dB SCé«dmM? : : BRB 208 : Try next parameter 
A 4 : Match found - nullify if same value & check min,max,valid, invalid 
51 87 B80 8 $0$:  MOVW (R7)+ Get offset + width 
0 


RI : Ge 
EXTZV #OFF_V_WIDTH,MOFF_S_WIDTH.R1,R2 : Get width only 
EXTZV W#OFF-V~VALUE ,#OFF-S"VALUE,R1,R1 ; Get offset only 
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v0G- UPDATE_P2, Update UCB/CDB based on P2 b 5-SEP-1984 219: DRIVER. SRCIXDDRIVER.MAR; 1 (55) | 

51 54 «CO 21¢7 1 ADDL = R4,R1 : Calculate address of datum | 
1CA ¢ CASE R2,TYPE=B,LIMIT=41,<- ; Br to handler 
1CA 4 {,- - 3 Byte value 
1CA 4 50$,- $ Word value 
ish 5 60$> :  Longword value 
10 5 : Byte, word, longword value in structure | 

61 55 90 2104 § Los: MOVB R5,(R1) ; Store byte value 

98 11 2107 0 BRB 3 
61 BO 2109 1 50S: MOVW = RS, (R1) ; Store word value 
93 11 210C : BRB 70$ : | 

61 bg 1DE $08: MOVL R5,(R1) 3 Store longword value 

ag 58 sO‘ + ¥ : 0$: SOBGTR R8,10$ ; Br if more parameters | 

O366 BF BA 21E€4 ; 6 80S: POPR #*M<R1,R2,R5,R6,R7,R8B,RI> ; Restore registers | 

0S 21E8 5837 RSB ; Return to caller 
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-SBTTL RETURN_P2, Return UCB/CDB buffer parameters 


p++ 

: RETURN_P2 = Return P2 buffer parameters 

; This routine is called to return the UCB/CDB buffer parameters. 
: Inputs: 


Ri = Address of return table (same format as verification table) 
R3 = IRP address 
R4 = UCB or CDB address for storing 
RS = UCB address 
Outputs: 


RO = destroyed. 
ALL other registers are preserved. 


RETURN_P2: 
PUSHR Foran duisetint R7> 
MOVL IRPSL_SVAPTE(R3) ,R6 
MOVL P2B_L_POINTER(R6) ,R6 
; Loop to return next parameter 


10s: MOVW = (R1) +, RS 
8 $ 


Save registers 
Br if no system buffer 


; Get parameter + flags 
Br if end of verify table 


EQL 
EXTZV #PRM_V_TYPE,#PRM_S_TYPE,RS.R? =: Get type field 
MOVW R7, (R6S+ Return parameter 


MOVW = (R1)+,R7 Get offset + width 


EXTZV #OFF_V_WIDTH,MOFF_S_WIDTH,R7,R2 ; Get width onl 
EXTZV #OFF-V~VALUE ,MOFF-S-VALUE,R7,R? ; Get offset only 
ADOL RG, ; Calculate address of datum 
CASE R2,TYPE=B,LIMIT=41,<- ; Br to handler 
g0$.- ; Byte value 
0$,- ; Word value 
40$> ;  Longword value 


Byte, word, longword value in structure 
20S: MOVZBL (R7),(R6)¢ 
30$: a (R7), (R6)+ 
$08: MOVL (R7) , (R6)+ 


Store byte value 
Store word value 
Store longword value 


508: SKIP PRM_V_MIN,R5,R1 Skip minimum value 
SKIP PRM_V_MAX,R5,R1 Skip ges lays value 
SKIP PRMV~INVALID,R5,R1 Skip invalid flags 


60$: POPR #*M<R1,R2,R5,R6,R7> Restore registers 


Return to caller 


z@ 
4] 
ao 
. 


Return P2 buffer parameters 
Get system P2 buffer address 
Point to start of output buf 


K 12 | 
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96 -SBTTL UNPACK_P2_BUF, Unpack a P2 parameter from P2 buffer | 

} 


98 ;++ 
35 3; UNPACK_P2_BUF = Unpack a P2 parameter from P2 buffer 


xt 

$) 

4 IC 

4 IC 

4 IC 

4 IC 

& 0 e | IC 

? $ ; Functional description: + 

4 $08 ; This routine is called to get a P2 parameter from the P2 buffer. | i 

4 3 5 : Inputs: | i 

43 59 8 : R1 = Parameter type code it 

4 9 3 : R3 = IRP address IC 

2 +44 ; R5 = UCB cddress i 

43 9911 ; Outputs | i 

4 318 : RO = Low bit clear if specified Parameter type code is found in P2 IC 

2 at3 $ R2 = Parameter value if success else destroyed < 

: 318 : ALL other registers are preserved. if 

43 5918 :-- IC 

4 2319 IC 

4 29 QO UNPACK_P2_ BUF: 3 Unpack P2 buffer IC 

OOEO 8F BB 4 921 POSHR #*M<R5,R6,R7> : Save registers IC 
56 2C Ad 00 47 59 § MOVL IRPSL_SVAPTE(R3) ,R6 ; Get system P2 buffer address If 
iC 13 48 59 BEQL :; Br none If 

57 32A 3C 4D 23 4 MOVZWL IRPS$W_BCNT(R3),R7 ; Get size of P2 buffer If 
wo: & 51 5925 DIVL k ; Caculate number of parameters If 
56 OC AB 9E 54 5926 MOVAB P26 T DATA(R6) ,R6 3; Point to start of data | If 
S.A 238 A544 MOVZWL S*#SSS_NORMAL,RO ; Assume success | it 
38 3980 : Loop to check next parameter in P2 buffer HH 

55 86 3C $28 5931 jos: MOVZWL (R6)+,R5 ; Get parameter type from P2 If 
2 86 600 5E 2338 MOVL (R6)+,R2 3; Get parameter value from P2 Ik 
5 51 61 61 59 CMPW b ; Parameters match? If 
9 13 64 23e¢ BEQL 3 ; Br if yes If 

F2 57 «=F 5 $6 2932 SOBGTR R7,10$ ; Br if more parameters Ht 
50 D4 69 earn ens: CLRL RO : Return error If 

OOEO 8F BA 268 23 8 30S: POPR #*M<R5,R6,R7> ; Restore registers Il 
05 6F 5939 RSB ; Return to caller i 

| Il 

Il 

Il 

| Il 

Il 

j Il 

ll 

Il 

Il 

Il 

Il 
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~SBTTL POKE_USER, Deliver attention AST 


++ 
POKE_USER, Deliver attention AST 


; Functional description: 


This routine is used to deliver an attenticn AS? if one has been 
requested. 


Inputs: 


RS = UCB address 
R9 = COB address 


; Outputs: 


RO = Low bit clear only if user is not notified 
R1i-R4 = destroyed. 


P 


2 


3 


OKE_USER: 


: Poke user process 
DSBINT UCBSB_FIPL(RS) 
CLRL ) 


Sync access to CDB 


-( 3; Assume failure 
MOVAB CDB_L_AST(R9),R1 3; Get AST Listhead 
TSTL (R1) : Empty 
BEQL 0$ :; Branch if yes 
INCL (SP) 3; Indicate success 
PUSHL R4 ; Save R 
OVL R1,R 3; Copy Listhead address 
0$ MOVL (R1),R1 : Address a block 
BEQL 20 :; Branch if done 
MOVL UCBSL_DEVDEPEND(R5) ,- ; Change parameter 
ACBSL_KAST+4(R1) 3 return status 
BISL CDB_L_DEVDEPEND(R9) ,- ; OR in circuit status 
ACBSL_KAST+4(R1) : 
BRB 1 ; Continue thru AST blocks 
0S: JSB G*COMSDELATTNAST 3; Deliver the AST‘'s 
POPL R4 3; Restore R4 


0$: POPL RO Return success indicator 
Restore IPL 


Return to caller 
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ow 
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A 9 § -SBTTL CANCEL, Cancel 1/0 routine 
BE as 
~ 4 : : CANCEL, Cancels an 1/0 operation in progress 
A aH : Functional description: 
A 993 : This routine cancels all I/0 on the tributary. 
- 444 ; Inputs: 
A 99 : R2 = channel number 
A 998 ;: RS = current IRP address 
A 999 ; R4 = PCB address 
A8 6000 ; R5 = UCB address ; 
~ a4 3 R8 = Cancel reason code (zero is for vanila flavored cancel). 
A $008 3 IPL = FIPL 
AB 6005 ; Outputs: 
A8 one 3 
AB 6007 ; RO-R3 are destroyed. 
a 6008 ; 
AB 010° 
AB rte CANCEL: ; Cancel an 1/0 operation 
A8 6013 PUSHQ R6 ; Save registers 
0240 30 AB 6014 BSBW XD_BUF _JNX : Get a journal buffer 
950 €9 AE 6015 BLBC " ; Br if error 
8 OA 90 B1 O08 MOVB #JNL_CANC, (R6)+ 3; Set journal type = CANCEL 
86 52 B60 B4 601 MOV R2, (R6)+ : Enter channel number 
86 58 80 87 edt | MOVW RB, (R6)+ ; Enter reason code 
oA ett 1$: POPQ R6 3; Restore registers 
BD £038 ASSUME CANSC_CANCEL EQ 0 
BD 60 ASSUME CANSC_DASSGN EQ 1 
BD 6024 PUSHQ R : Save R8, RI 
5C AS) 6BS «22C0 «6025 TSTW YCBSU_REFC (RS) : Last reference to unit? 
OD 12 : ° § : BNEQ $ : Br if no 
C3 69 g : Last deassign on unit 
53 24 AS 0 C5 6030 . MOVL UCBSL_CRB(R5) ,R3 ; Get CRB address 
FA7 8 c9 $8 1 BSBW SHUTDOWN_DEV : Shutdown the controller 
012 cc § BSBW NIT_UCB 3; Re-initialize the UCB 
008 1 cf pt ? BRw ; And leave 
50 60 A4 00 D2 6035 5$: MOVL PCBSL_PID(R4) ,RO ; Get PID 
53 3 ° D6 6 § MOVL ; Copy channel number 
FC D9 6 BSBU StiéX ATE _P1D_CHAN : Translate PID and channel 
59 : E9 DC 6 3 BLBC RO,8 ; Br none 
fF DF TSTL : Is this a plain cancel? 
5 1 eI 2 rt . BEQL 10$ ; Br if yes 
: é rk : Deassign channel request 
0218 (541 D4 E 4a * CLRL UCBSL_XD_CDB_VEC(R5)(R1) ; Remove CDB address from vector 


(33). 


B 
20S: POPQ R8 Restore R8, 
RSB Return to caller 


DO_CANCEL: ; Do the cancel on waiting 1/0 | 
: «pending 1/0 is canceled 


N 12 
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CANCEL, Cancel 1/0 routine g7FeE 158s 80:99:00 LORIVER cae suDbeiveg.mar:1 29° t85y | 
158 €541 D4 €8 45 CLRL UCBSL_XD_PID_VEC(RS)CR1 ; Zero PID entr | 
a e341 4 E #8 CLRW UEBBNCKD-CHAR VEC CRED ERT} ; Zero channel antry 
138_C¢ ry 4 F 4 CLRB UCB$B_XD_TRIB veces dCR1 ; Reset ai seeress 
134 97 F ‘8 DECB UCBSB° XD" TRB_CNT(RS) ; One less tr 
06 OC Ad 0 F 604 BBS #co_TS_v ESTAB,CDB_W_ STS(R9),7$ ; Br if trib qoetary shed 
FB5D 6050 BSBW GLEAR COB 3; Clean up 
0084 ? 2) BRW ; Pop registers and return 
0085 Hi é 6 2¢ 7$: BSBW DO_CANCEL ; Abort UCB xmit 1/0 | 
F94C 0 : ? 22 : BSBW SHOTDOWN_TRIB1 ; Clear all CDB 1/0 | 
O¢ 36 ; Turn CDB into IRP to halt/kill trib 
0 48 A9 D0 230 58° MOVL  CDB_L_PID(R9) ,RO ; Save PID | 
24 OE Ad =: 90 16 6059 MOVE CDB "o- TRB_ADDR(R9) ,R1 : Save trib address 
52 59 8 14 6060 MOVL R9,R ; Cop pointer to IRP 
0086 30 2317 6061 BSBW Bib IRP : Build the IRP 
38 A3 29 dO 1A o808 MOVL R »TRPSL_MEDIA(R3) 3; Save PID in IRP 
40 A 1 90 § 606 MOVB R1,1RP$Q_STATION(R3) ; Store trib address 
21 A OE 90 6064 MOVB #XD_FC_V_HALTT, IRP$B_XDFUNC(R3) ; Set to halt tributary 
6 6065 DSBINT veges BIPL(RS) ; Sync access to device 
0094 (5 63 3 G88 INSQUE (R3),0CB$Q_XD_INPUTQ(RS) ; Insert at front of input Q 
EC9B 606 SBW AD_PORT : Give request to device 
6068 ENBINT ; Restore IPL 
50 11 . tsi 8s: BRB 20$ : 
33 6071 : Cancel request 
58 0218 (541 ODE 33, $078 ios: MOVAL UCBSL_XD_CDB_VEC(RS)CR1), ~ 3 Save address of trib address | 
45 0C Ad 00 4 $29 6074 BBC #CD_TS_V-ESTAB, CDB_W_STS(R9 ».208 r if trib not established 
51 004 BF s3C 345 6079 MOVZWL #IRPSC“LENGTH,R1 lone size of IRP 
4A $059 : NOTE = We must use EXESALONONPAGED because the EXESALLOCIRP resets the 
rr ogre : IPL to ASTDEL. 
Soeceens 16 seh ret : 23. tt | aamaaaliaaaed 3 pS Segeee an IRP 
: Br success 
50 0126 BF Se 33 6082 MOV2WL asi. INSFMEM, RO : Else, return error 
58 608 SETIPL : Enable interrupts 
04 38 ones ET 3; RETURN to caller | 
0071 30 5¢ ones 15$: BSBW BLO 3 ; Build the IRP 
44 a3. 58 00 SF 608 MOVL fe TRPSL CDB(R3) save address of CDB address 
OC AS FAEO CF 9 $3 ? HY MOVAB W*RETURNIRP, IRPSL _PID(R3 set return address in IRP 
40 a3 OE AD 9 6 MOVB CD 6. TRB_ADOR(RO) > a4RPsa aro : Store trib address | 
21 a3 10 90 6090 #Xx0-FC_V prance L.IRP$B_XDFUNC(R3) ; Set function request | 
6091 DSBINT vc $b BIP 3: Sync access to device 
0094 ¢5 i 0 6098 INSQUE (R3) gcasa XD_INPUTQ(R5) : Insert. at front of input a | 
B OAA 9 1CW ap fS_M_BOFRET,CDB_W_STS(R9) ; Clear BUFRET fla ag 
94 SBW GAB SOR ? 3: Give request to device 
95 ENBINT ; Restore IPL 
04 10 : 38 SBB plies : Abort all IRPs 
D 6098 : 
ig 
E ef 


Ww 
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| 
)| 
E—E 61 3 ..when trib is halted. 
52 009C H oF ; 1 é MOVAL UCBS$Q_XD_XMT_REQ(RS),R2 3 Get address of me request Q 
B23 104 $8B CHECK_PK ; Run down the — 
52 18 Ad 13 9 105 MOVAL CDB_Q_RCV_REQ(RY) ,R2 ; Get address ) reed IRP Q | 
0% 1 99 61 $ S CHECK-PKT™ ; Run down the queue 
52. 10 AY 98 e18 MOVAL CDB_Q-XMT_REQ(R9) ,R2 ; Get address of xmit IRP Q 
SF 6108 ; Run down the queue 
44 219? CHECK_PKT: 
e } 
44 ee ; NOTE: The xmit request queue on the UCB must only be accessed at FIPL 
51 52 00 oF e118 MOVL R2,R1 : Copy Listhead address 
A2 6114 ASSUME REPEL 1OQFL EQ 0 
51 61 00 Ae 6115 108: MOVL (R1),R1 : Get next in List | 
5132 DI g3A3 6116 CHPL Re RI End of queue? 
25 13 23aB 611 BEQL ©=_- 208 : Br ir yes | 
OC Al D5 23AA 6118 TSTL —- [RPSL_PID(R1) : Is this an Internal IRP? | 
OA 14 AD 6119 BGTR 15$ ; Br it Ny PID must match 
48 A9 O2A0 CS 01 23AF 6120 CMPL UCBSL_XD_PID(R5).CDB_L_PID(R9> ; Else, ABORT all the Starter's 
eB 12 BS 6121 BNEQ 10$ 3 _IRPs = but only on a match 
07 +11 «2387 olsg BRE 17$ 3; Check the CHAN as well | 
48 AD OC Al D1 389 61 15$: CMPL IRP$L_PID(R1) ,CDB_L_PID(R9) 3; Do the PIDs match? 
2 12 23BE 6124 BNEQ 10% : Br if no = try next packet 
4C AQ 28 Al B1 He ois? 17$: CMPW IRP$W_CHAN(R1) ,CDB_W_CHAN(R9) ; Do the Channels matc 
DB sé2 CS 6126 BNEQ 10$ ; Br if no = try next packet 
3C7 6127 ASSUME aerre afore EQ 0 
53 61 Of 3C7 6128 REMQUE 3; Remove peches from queue 
F800 30 3CA 6129 SBW ieoat _PKT > Abort t 
dDd~=—Os ‘11 CD 6130 BRB CHECK_PKT ; Check entire queue 
05 23CF 6131 208: RSB ; Return 
2300 0136 
2300 6133 ;++ . 
$350 6134 ; BLD_IRP - Build an IRP 
300 6135 ; 
308 6136 ; Inputs: 
DO 6137; 
300 6138 ; R2 = address of IRP 
300 6139 ; R5 = UCB address 
300 6140 ; 
300 6141 ; Outputs: 
DO 9186 3 
DO 6143; R2 = Address of IRP$Q oo atin in IRP 
DO 6144 ; R3 = Original address of IRP 
+ 6145 | Sais | 
D 9146 
DO 6147 BLD_IRP: ; Build an IRP 
S$ 82 6«€6FfE DO 6148 MOVAQ (R2)+,R3 ; Save IRP address, skip to size fie. 
D3 6149 ASSUME IRP$W_SIZE EQ 8 | 
D3 6150 ASSUME IRPSB_TYPE EQ IRP$W_SIZE+2 
D 6151 ASSUME IRPS$B_RMOD EQ byt TYPE+1 | 
82 000A0060 8F dO D $126 VL #<<DYASC_IRP@16>'CDB_C_LENGTH>,(R2)+ ; Make it look Like an IRP 
DA 615 ASSUME IRPS$L_PIB EQ IRP$B_RAOD+1 | 
82 FA72 CF 9E DA 0128 OVAB Verfucns CDB, (R2)+ ; Store return address from IOPOST | 
DF 6155 ASSUME IRPSL_AST EQ IRPSL_PID+4 
DF $128 ASSUME N49 “ASTPRM EQ IRPSL AST+4 
82 7C¢ DF 6157 CLRQ R2) ; Clear AST, ASTPRM 
E1 6158 ASSUME IRPSL_WIND EQ IRPSL_ASTPRM+4 | 
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82 D4 E $138 CLRL (R2)+ : Clear WIND 

E 160 ASSUME IRPSL_UCB EQ IRPSL_WIND+4 
82 55 »d0 —3 6161 MOVL R5,(R2)+ ; Store UCB address 

6 616¢ ASSUME IRPSW_FUNC EQ IRPSL UCB+4 
E6 616 ASSUME IRPSB_-EFN EQ IRPS$SW_FUNC+2 
E 6164 ASSUME IRPSB_PRI EQ taste EFNS] | 
E6 6165 ASSUME IRPS$L_-IOSB EQ IRPSB_PRI+1 

82 7C¢ E 2199 LRQ (R2)+ 3; Clear FUNC, EFN, PRI, I0SB 
E 616 ASSUME IRPSW_CHAN EQ IRPSL_1I0SB+4 
E 6168 ASSUME IRPS$W_STS EQ IRPSW CHAN+2 
ee 0197 ASSUME IRPSL_SVAPTE EQ IRPSW ST §+2 

82 7C E8 61 9 LRQ (R2)+ ; Clear CHAN, STS, SVAPTE 
EA 617 ASSUME IRPS$W_BOFF EQ IRPSL_ Dba +4 
EA o1z¢ ASSUME IRPS$W_BCNT EQ IRP$W-B 
EA 617 ASSUME IRPSL_MEDIA EQ TRPSO™ SBCNTs6 ; BCNT is reelt a longword 

82 7¢ EA 6174 CLRQ geS3s ; Clear BOF BUNT 

82 7C He 6175 CLRQ (R2)+ ; Clear BEDIA 
EE 6176 ASSUME IRPSQ_STATION EQ IRPSL_MEDIA+8 

82 7C SEE 6177 CLRQ (R2)+ ; Clear STATION 

05 23F0 6178 RSB ; Return to caller 
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+ 
INIT_UCB = Initialize UCB parameters 
Functional description: 


This routine is called to reset the UCB default parameters when 
the last channel is deassigned or wnen the unit is initialized. 


Inputs: 

RS = UCB address 

IRP = FIPL or higher 
; Outputs: 
RO-R2 are destroyed. 


INIT_UCB: ; Initialize the UCB 
ASSUME UCBS$B_XD_OUTTIM EQ UCBSB_XD_ INTIM+1 
CLRW UCB$B_XD_INTIM(R5) ; Stop all timers 


L 

ASSUME UCB$B_XD"DUP EQ UCB$B_XD_PRO+1 
ASSUME UCB$B_XD_CON EQ UCB$B_XD_DUP+1 
ASSUME UCB$B_ a -BEN EQ UCB$B_XD-CON+1 
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02A8 C5) 4 CLRL UCB$B~XD-PRO(RS) t all Line characteristics 
42 AS 0200 8F B0 MOVW #XD BEF aur SI 2 -UCBSW. DevaUFS1Z(R5) . eo default buffer size 
04 90 MOVB #MAX_XMT_TRB,- 3; Set maximum number of xmits 
0135 C5 bcesé XD-XMT He. fight 3 ..per tributary 
”» na & MOVZWL #DEF_CINE PARAM ; Set size of defaults in bytes 
51 DD2D CF YE MOVAB DEF_CINE_PAR RAR : Set address of defaults 
52 02A7 C5 9E MOVAB UCBSB_ x PARMAR R2 : Set address of parameters 
82 81 90 10$: MOVB (R1)+>(R2)+ 3 Set next default 
FA 50 fe o's RO.108 ; Loop on all parameters 
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418 6219 -SBTTL Timer setup routines 
ee 
41 6 : : Timer setup routines 
rf 6 ¢ : Functional description: 
rf é § : These routines set/reset the input and output wait timers. | 
41 6 8 : Inputs: 
41 6 6 ; RS = UCB address | 
rf: e 4 ; Outputs: | 
418 6234 : RO,R1 are destroyed. | 
cis é g | | 
418 6237 ° 
: ; Start input timer 
51 0094 CS 9 118 3 35 SEAT VAB UCB$Q_XD_INPUTQ(R5) ,R1 ; Get address of input queue 
51 61 D1 2410 6240 CMPL (R1),R1 ~ ; Anything on queue? | 
01 12 24620 6241 BNEQ 20$ ; Br if yes - reset timer 
05 rt 2 2g 10$: RSB ; Else, exit | 
: 3: Tf lready going? 
os EY mes eae yun ern i grt eee 
MOVB #3,UCBSB_XD_IN ; Rese 
sete 93 7 i i Bre START_TIMER ; Start timer if needed | 
: Start output timer 
230 3 $6 Serer BINT UCB$B_DIPL(R5) : Disable device interrupts 
02A6 C5) 94s 2437 =—6251 UCB$B_XD_OUTTIM(R5) : Clear output timer 
51 QOOAC C5 9E stin 6 26 a UCBSQ, XD_INFOUT(R5) .R1 ; ng yen output queue 
51 61 D1 2440 625 L , 3 
; Br if yes - reset timer 
50 opp08 ef i tt £384 SOV ZL RAK_v_TR1B,RO ; Get maxinun number of CDBs | 
51 0218 cse6 09 tee 3 3$ 10$: hove ures. XD_CDB_VEC(R5)CROJ,R1 Set eterese of next CDB | 
09 OC Al of ei $438 g 3g Bac” #CD_TS_V_ESTAB coe W_STS(R1), 20$'; Br if trib not established 
51 30 A1 SE 2459 6260 MOVAB CDB~Q INFOUTCRID. :'Get address of output queue | 
51 61 D1 2450 6261 CMPL (R1),R1 : Anything on queue? 
7 12 246 6 BNEQ ; Br if yes - reset timer 
E7 3 F4 246 4 $6 20$: SOBGEQ RO,10$ ; Loop on all CDBs 
465 6264 ENBINT ; Restore IPL 
05 re e 68 RSB 3; Else, exit 
469 6267 30S: ENBINT ; Restore IPL 
MOVB #10 vCBse a -OUTTIM(RS) ; Reset timeout cell 
cra eel Bog cn é é3 3; BRB START_ ; Start timer 
471 6271 START_TIMER: ; Startup timer 
0D 64 AS 00 £0 2471 627 “BBS CBSV_TIM,UCB$W_STS(R5),10$ : rs timer going 
' a SL‘DUETIM(RS) ; Set 2 second timer 
oc ws oooh SEE] Eh Sort Bas Uc Iamame AERA NTC eSthee Has 
0 483 6275 10$: RSB 


TIMEOUT, Timeout Routine -SEP-19 
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AX/VMS Macro Vv04-00 
DRIVER. SRCIXDDRIVER.MAR; 1 


The action is to set 


: Disable timer 
6$ ; Br if not inited 


4 
; Set error indicator 


Assume powerfail 


; Br if powerfail 


Input timer going? 


; Br if not 


Input wait timeout? 


; Br if yes - error 


Else, remember to restart timer 
Output timer going? 

Br if not - exit 

Output wait timeout? — 

Br it not - restart timer 


; Get CRB address 


; Get CSR address 
3; Stop the device 


Indicate timeout 
; Set error status 
Schedule a fork process 


re r § a ~SBTTL TIMEOUT, Timeout Routine 

484 6279 ; ++ 

ri 2 ? 9 3; TIMEOUT = Timeout Routine 

: r ? ¢ 3; Functional description: 

484 6284 ; This routine is entered on tributary timeout. 
: r ? 5 ; the error status and branch to the error routine. 
484 6 5 3 Inputs: 

484 6 8 ; 

484 6 3 RS = UCB address 

484 6290 ; 

484 6291 ; Outputs: 

nt 6 3 3 

484 6293 ; R3,R4 are destroyed. 

484 6294 ; RS is preserved. 

484 6295 ; 

484 6296 ;-- 

484 6297 

484 6298 TIMEOUT: 

64 A 03 AA 2484 6299 BIC #UCBSM_TIM!UCBSM_INT ,UCBSW_STS(R5) 
3F 68 AS 00 4 488 6300 BBC #UCBSV_XD_INITED uca$w DEVSTS(RS), 
53 01 #415 78 248D 6301 ASHL  #XD_BSEL2“V_ERR+16,41,R3 ; 
54 01 #10 78 2491 Os08 ASHL “i, 3 
2F 64 AS 05 £0 2495 630 BBS #UCBSV. POWER, UCBSW_STS(R5),30$ ; 

02A5 C5 95) 249A 6304 TSTB = UCBSB_RD_INTIM(RS) : 
09 13 249€ 6305 BEQL 3 

02A5 C5 97) 24A0 6306 DECB UCBSB_XD_INTIM(RS) ; 

OF 13 246A4 6307 BEQL ; 

C8 AF oF 4A6 6308 PUSHAB B“START_TIMER 3 

02A6 C5) «95 24A9 6309 108:  TSTB UCBSB_XB_OUTTIM(RS) : 

1D 13 24AD 6310 BEQL 40$ ; 

02A6 C5) (97) 24AF «06311 DECB UCB$B_XD_OUTTIM(RS) 3 

BC 12 24B3 O36 BNEQ START_TIMER $ 

54 24 AS DO 2485 6313 20$: MOVL UCBSL_CRB(R5) ,R4 s 

489 ost? ASSUME IDBS$L_CSR EQ 

54 2C B46 00 24689 6315 MOVL @CRBSC_INTD+VECS$L_IDB(R4) ,R4 : 
01 A4 «440 8F 690 «48D 6316 MOVB § #XD_BSEL1_M_MCLR,BSEL1(R45 : 
54 D4 24C2 631 CLRL : 
4C4 6318 SETBIT #XMSV_STS_TIMO,UCBSL_DEVDEPEND(R5) 

F307 30 24C9 6319 30$:  BSBW SCHED-FORR ; 

05 24CC 6320 40$: RSB : 


; Return to caller 
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XDDRIVER = VAX/VMS DMP11/DMV11 Device Driver 16-SEP-1984 :28: AX/VMS Macro V04-00 
rire tit XD_FILL_JNX, Fill a journal record -SEP-1984 90:48:88 LORIVER. SRETRDDRIVER.MAR: 1 
4CD 6323 ~SBTTL XD_FILL_JNX, Fill ournal record 
40D 6324 -SBTTL XDIBUF_INX, Get a bireat record 
ib Be 
40D 6 § : XD_FILL_JNX = Fill @ journal record 
ti ° 3 : XD_BUF_JNX = Get a journal record 
acd 6 6 : Functional description: 
40D 6 ¢ : This routine finds a journal record and stores the IRP information 
ace ? ? ; into the journal record. 
4cD 6 5 : Inputs: 
4CD 6 5 : RO = Journal record type 
4CD 6338 ; R3 = IRP address (XD_FILL_JNX only) 
rt ete ; RS = UCB address 
4CD 6341 ; Outputs: 
40D 6 +g 3 RO = success indicator 
4CD 6345 ; R6,R7 are destroyed. 
ae 
00000020 4cb 6346 ‘ JNL_REC_SIZ = 32 
4CD 6348 XD_FILL_JNX:: ; Fill the journal record 
50 DD 24CD oes? PUSHL RO ; Save record type 
1D 10 24CF 6350 BSBB XD_BUF _JNX ; Get a journal record 
16 50 €9 2401 6351 BLBC RO,90$ :; Br if error 
50 B8EDO 2404 $328 POPL RO ; Restore record type 
86 50 90 2407 635 MOVB RO, (R6)+ ; Enter record type 
86 28 A3 BO 24DA 6354 MOVW IRP$W_CHAN(R3),(R6)+ ; Enter CHAN 
86 0 AS B0 rt 43 O92? MOVW IRP$SW_FUNC(R3) , (R6)+ ; Enter FUNC 
86 40 A3 7D 4E 6356 IRP$Q_STATION(R3) , (R6)+ 3; Enter STATION 
50 01 QA 2666 6357 MOVZBL #1,R0 ; Return with success 
OF SEA 6359 
5E 04 CO 24EA 6360 90S: ADDL #4,SP ; Pop stack 
05 aEe ? $1 RSB ; Return 
4EE 6 $§ XD_BUF _JNX:: ; Get a journal record 
rt 6364 DSBINT UCBSB_DIPL(RS) : Sync access to buffers 
57 0090 C5 0 rid ? 9 ph UCBSL_XD_JNLBUF (R5) ,R7 3 get phe journal buffer 
: Br none 
06 A7 38 Bi 24FC 6 89 CMPW #JNL_REC_S1Z,6(R7) : Is there enough space? 
06 1F 2500 6368 BLSSU 200$ ; Br if no 
5 6 4 100$ ENBINT 3; Re-enable interrupts 
50 pds 25 6370 CLRL RO ; Return error 
05 ope ? 4 RSB 
06 AZ 20 ag 208 6 5g 200$: SUBW #INL_REC_S1Z,6(R7) ; Acquire space to be used 
56 67 OD ane 6374 MOVL (R7),R6 : Get output pointer 
67 20 CO 250F 6375 ADDL #INL_REC_SIZ,(R7) ; Adjust puteut pointer 
ie 637 ENBINT 3: Re-enable interrupts 
57 56 0 2515 637 MOVL R6,R7 ; Copy buffer pointer 
86 00000000'GF 7D 2518 637 mova GTEXESGQ_SYSTIME , (RO) + : Enter timestamp 
50 01 QA 251F 637 MOVZBL #1,R ; Return with success 


H 13 
vou 000" XDLBUFLINX,” Geta journal record —»'S-SEP=19B4 00:99:00 EDRIVER.SRESRDDAIVER.MaR:1 29° (68), 


i RSB ; Return to caller 

3 
5 6 § XD_END: ; Last location in driver 
5 -END 
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DPTSREINITAB 
DPTSTAB 
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Symbol table -SEP-1984 DRIVER.S REX XDDRIVER.MAR; 1 _—) 
XMSV_CHR_CTRL = 0° 
XMSV—~CHR_DMC = 
XMSV—CHR-HDPLX = 0 
XM$V—~CHR-LOOPB = 
V_CHR_MOP = 000 9 
XM$V—CHR-TRIB = 0000 
XMSV-ERR-FATAL = 0000001 
XMSV_ERR_MAINT = 0001 
XMSV-ERR-START 2 99 1 
XM$V_ERR_ THRESH = 00000015 
XM$V-ERR-TRIB = 00000016 
XMSV_STS_ACTIVE = $8 ted 
MS$V~STS_BUFFAIL = C 
V_STS_DISC = QQOQ000E 
XM$V—~STS_RUNNING = 00000000 
XMS$V_STS_TIMO = 00000009 
XMT_ALT_START 99000 FBR 03 
XMT_FDT 000024A R 03 
XMT_OTHERS 00000388 R 03 
XMT_START a's e444 R 03 
XMT_UV1 0000035A R 03 
pow mance ce nee mame + 
: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
00000000 ( 0.) 00 ¢ O.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$aB QOOOO2CE ( 718.) 01 ¢ 1.) \NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$5505 PROLOGUE 00000069 ( 105.) 8 ( ¢-} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115— DRIVER 00002523 ( 9507.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
er 4 
' Performance indicators ! 
pe wee wesr een ee rocen en oan ee 
Phase Page faults CPU Time Elapsed Time 
Initialization 6 00:00:00.05 00:00:01.58 
pomnene processing 131 eS A Bk Bp 883-38 
s 1 1655 i SH 83:8 209.77 
ee table sort 00:00:04.50 B08: 18.58 
Pass 2 47 8: B: $8 8:88:6 92 
Symbol iable output : 8 ‘ 0:00:01.75 
Psect synopsis output 0: 8: -02 BO) 20 «Be 
Cross-reference output BR 00.99 00:00:00.0 
Assembler run totals 2299 0:01:05.37 00:04:21.90 


The working set Limit was 3450 pages. 

37790 bytes (856 pages) of virtual memory were used o buffer the intermediate code. 

esr were 230 pages of symbol table space dc ing. 50 ob} © hold 3844 non-local and 564 local symbols. 
7 source Lines were read in Pass 1, producin object records in Pass 2. 
3 pages of virtual memory were used to define ? macros. 
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i es 


! Macro Library statistics ! 


$eanecensaas Seer en one me eooe} 


Macro Library name 


-$255$DUA28: ee es MLB; 1 

“$255$DUA28: (SYS tie MLB; 1 35 
“E5eeSDUA 8: SYSLIB STARLET. MLB; 2 12 
TOTALS (all Libraries) 48 


3853 GETS were required to define 48 macros. 
There were no errors, warnings or information messages. 
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